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Informatik für jedermann 


Mit der Popularisierung der Wissenschaft 
haben sich die Deutschen immer schwer 
getan. So begreifen beispielsweise Philo- 
sophiestudenten die freie englische Über- 
setzung des Kantschen Werks besser als 
das deutsche Original. Ein einfaches 
Gemüt schlug einmal zufällig die „Reine 
Vernunft“ auf. Nachdem er in diesem 
Buch eine Zeitlang geblättert hatte, rief er 
verstört aus: „Deine Sorgen möcht’ ich 
haben!“ 

Unverständlich und praxisfremd - so stellt 
sich nicht nur die Philosophie dar. Denn 
auch um die als kristallklar gerühmte Ma- 
tnematik ist es nicht zum besten bestellt. 
Man kann mit Fug und Recht behaupten, 
daß es kaum einen professionellen Mathe- 
matiker gibt, der in der Lage wäre, die 
Werke von Gauß im Original zu lesen. 
Nicht weil Gauß in Latein schrieb, wie es 
damals üblich war, sondern weil er stets 
die fertige Lösung präsentierte und somit 
die Spuren seiner mathematischen Ge- 
dankengänge sorgfältig verwischte. 

Im Peeker wollen wir die Popularisierung 
der Informatik vorantreiben. Zu ausge- 
wählten Grundsatzthemen werden jetzt re- 
gelmäßig didaktisch aufbereitete Beiträge 
wie etwa der Aufsatz über das „Binäre 
Rechnen“ erscheinen. Hier besteht ein 
enormer Nachholbedarf. Ich habe mir ein- 
mal den Spaß erlaubt, einigen wirklich ver- 
sierten Assemblerprogrammierern die fol- 
gende Frage vorzulegen (Dialog): „Sie 
kennen doch das Zweierkomplement von 


Binärzahlen, oder?" — „Logisch!” — „Und 
Dezimalzahlen kennen Sie auch?“ — „Was 
für eine Frage!“ — „Nun, wenn das so ist, 


wie heißt dann das dezimale Zweierkom- 
plement zur der Dezimalzahl 6789?” — 
Sendepause! Keiner konnte die Frage 
ohne Umschweife beantworten, also direkt 
ohne vorherige Umwandlung von 6789 in 
eine Binärzahl, Komplementierung und 
Rückumwandlung in die Dezimalzahl. Dies 
zeigt aber auch gleichzeitig, daß man über 
das Einer- und Zweierkomplement nie 
bewußt nachgedacht hat, sonst wäre der 


editorial 


„didaktische Transfer“ sofort gelungen. 
Übrigens: Informatiklehrer, die bereits jetzt 
den zweiten Teil des Beitrages über „Bi- 
näres Rechnen“ benötigen, können den 
Umbruch kostenlos anfordern (bitte mit 
Schulstempe!). 


Kyan-Pascal 


Soeben haben wir erfahren, daß am 1.2.86 
die neue Version 2.0 (bislang Version 1.2) 
ausgeliefert wird. Wir haben deshalb für 
diejenigen, die sich an der Sammelbestell- 
aktion beteiligen, die neue Version ange- 
fordert, die voraussichtlich am 10.2.86 bei 
uns eintreffen wird. Sinngemäß haben wir 
den Anmeldeschluß für die Sammelbestel- 
lung um einen Monat bis zum 28.2.86 ver- 
längert. Nach diesem Termin müssen wir 
den Sonderpreis (DM 170,-) leider erhö- 
hen, da der USA-Bezugspreis inzwischen 
$80.00 beträgt. Bestellen Sie also sofort, 
denn so preiswert werden Sie Kyan-Pascal 
nie mehr erhalten. 

Kyan-Pascal wird von uns voll unterstützt. 
Zunächst erscheint ein zweiteiliger Kom- 
paktkurs für Anfänger. Außerdem sind ver- 
schiedene Include-Utilities für Hires-Gra- 
fik, Siringverarbeitung, Bildschirmmasken 
und ProDOS-Dateiverwaltung in Arbeit, 
die im Laufe der nächsten Hefte veröffent- 
licht werden. 


Neuer Macintosh 


Die Firma Apple wird Ende Januar in Mün- 
chen einen neuen Macintosh vorstellen, 
der die Bezeichnung „Macintosh Plus” 
haben wird. Nachdem der alte Macintosh 
ein „Mauerblümchendasein” (s. „Chip"- 
Bestseller-Liste, Heft 11/85) führte, hoffen 
wir, daß das neue Gerät die Forderungen 
nach einem offenen Systems erfüllt und 
der Endabnehmerpreis angesichts Atari 
moderat ausfällt. Wir werden im nächsten 
Heft darüber berichten. 


VEN en 
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Teil 1: Addition und Subtraktion 


1. Einleitung 


Das binäre Rechnen mit natürlichen Zah- 
len ist leicht verständlich, wenn es nach- 
vollziehbar erklärt wird. Die üblichen 6502- 
Lehrbücher von L.A.Leventhal, R.Hyde 
u.a. beschränken sich indes allesamt auf 
beiläufige Sätze in der Art „You can per- 
form division on the computer just like you 
would perform division with pen and pa- 
per” und gehen dann sofort zur Tagesord- 
nung über, indem sie Algorithmen präsen- 
tieren, die mit „paper and pencil“ nurnoch 
wenig gemein haben. Nirgendwo wird das 
binäre Rechnen einmal wirklich Schritt für 
Schritt auf das dezimale Rechnen mit Pa- 
pier und Bleistift zurückgeführt. Folglich 
bleibt eine Lücke in der Beweisführung, 
und es ist von daher einsichtig, daß eine 
nicht geringe Zahl von Assemblerpro- 
grammierern die binären Algorithmen 
„blind“ anwendet. 

Ein 6502-Profi wird möglicherweise jetzt 
naserümpfend ausrufen: „Ich gehöre nicht 
zu jenen ‚Blind‘-Gängern!“ Wirklich nicht? 
Dann prüfen Sie sich jetzt einmal selbst. 
Sie kennen das binäre Einer- und Zweier- 
komplement, z.B. 

1001 — 0110 Einerkomplement 

1001 > 0111 Zweierkomplement 

Frage: Wie heißt das dezimale Zweier- 
komplement zu der Zahl 6789? Wenn Sie 
die Lösung spontan und ohne langes Kno- 
beln niederschreiben können, dann sind 
Sie nicht so blind wie wir und brauchen 
den nachfolgenden Aufsatz nicht mehr zu 
lesen. 


Im folgenden beschränken wir uns auf das 
schriftliche Rechnen (Addition, Subtrak- 
tion, Multiplikation und Division) mit natür- 
lichen Zahlen (0, 1, 2, 3 usw.) im Dezi- 
mal- und Binärsystem. Somit werden ne- 
gative Zahlen (-1, -2, -3 usw.) und Bruch- 
zahlen (1/1, 1/2, 1/3 usw.) bzw. Dezimal- 
zahlen im engeren Sinne (1.0, 05, 
0.33333 usw.) ausgespart. Das schriftliche 
Rechnen im Dezimalsystem wird zwar als 
praktische Fähigkeit vorausgesetzt, doch 


werden wir zudem auf den zugrundelie- 
genden theoretischen Algorithmus einge- 
hen, denn nur wenn man sich die Vorge- 
hensweise beim schriftlichen Rechnen im 
Dezimalsystem bewußt macht, wird man 
die Rechenregeln auf das Binärsystem 
übertragen können. 

Bei den einzelnen Abschnitten wird säu- 
berlich zwischen Binärtheorie und 6502- 
Implementierung getrennt, so daß Nicht- 
Assemblerprogrammierer die 6502-Pas- 
sagen überspringen können. 


2. Zahlensysteme 


Für jede Zahl könnte man theoretisch ein 
eigenes Zeichen erfinden, z.B. „®" usw. 
Da es jedoch unendlich viele Zahlen gibt, 
müßte man sich unendlich viele Zeichen 
ausdenken. Manche Naturvölker haben 
sich deshalb auf einige wenige Zahlen be- 
schränkt. Demgegenüber haben Kultur- 
völker die Ziffer eingeführt, die sich als 
nicht-zusammengesetzte, „einziffrige* 
Zahl mit eigenem Zahlzeichen definieren 
läßt, z.B. „@®“. Zusammengesetzte, 
„mehrziffrige* Zahlen werden dann durch 
Verkettung der vorhandenen Ziffern gebil- 
det, z.B. „@@@“. Wenn sich der Wert 
einer mehrziffrigen Zahl aus der Summe 
der Ziffernwerte ergibt, spricht man vom 
Additionssystem. Wenn hingegen der 
Wert einer mehrziffrigen Zahl zusätzlich 
von der Stelle oder Position der Ziffern 
innerhalb der Ziffernkette abhängt, spricht 
man vom Positionssystem. 


2.1. Additionssysteme 


Die römische Zahl 

XII = 13 

ist ein Beispiel für ein Additionssystem, 
denn es gilt 

X+l+1+1=13. 

(M = 1000, D = 500, C = 100, L= 50, X 
=10,V=5,1=1.) 

Allerdings enthält das römische Zahlensy- 
stem bereits Elemente des Positionssy- 
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stems. So hängt bei der Zahl 

MCMLXXXVI = 1986 

der Wert „CM“ = 900 von der Position 
oder Stellung der Ziffer „C“ (= 100) vor 
der Ziffer „M" (= 1000) ab, denn es gilt 
CM = -100 + 1000 = 900 

MC = 1000 + 100 = 1100 

Ähnlich ist es mit dem französischen Zahl- 
wort 

quatre-vingts = 80, d.h. 4 - 20 

gegenüber dem Zahlwort 

vingt-quatre = 24, d.h.20 + 4. 


Wie ersichtlich, gibt es bei älteren Zahlen- 
systemen etliche Sonderfälle und Unge- 
reimtheiten. 


2.2. Positionssysteme 


Beim reinen Positionssystem wird der 
Wert einer Zahl konsequent durch die Po- 
sition der Ziffern bestimmt. Positionssy- 
steme werden nach der Anzahl der ver- 
schiedenen Ziffern (= Zahlzeichen) be- 
nannt. 


2.2.1. Dezimalsystem 


Das uns vertraute Dezimalsystem verfügt 
über 10 (lateinisch decem) verschiedene 
Ziffern 

02 2.3.256077.009 

und geht ursprünglich auf die Inder zu- 
rück. Wie die Abbildung 1 zeigt, wurden 
die (noch heute in Indien benutzten) indi- 
schen Zahlzeichen von den Europäern 
nicht konseauent übernommen. Beispiels- 
weise entspricht das Zahlzeichen der indi- 
schen „4“ dem Zahlzeichen der europäl- 
schen „8“; ferner entspricht die indische 
„5“ der europäischen „4“, die indische 
„7“ der europäischen „6“, und die euro- 
päische „I“ ist spiegelbildlich verdreht. 


Zahlzeidhen. 
RR Ren © 
1234567890 

SLR 1912 


Abbildung 1: Indische Zahlzeichen, wie sie 
heute in der Devanagari-Schrift benutzt 
werden (Hindi u. a.). 


Da das Dezimalsystem das uns Europäern 
zunächst einzig vertraute Zahlensystem 
ist, verwundert es nicht, daß für den Be- 
griff „Zahl im Dezimalsystem“ kein eige- 
nes Fachwort geprägt wurde. Wir spre- 
chen zwar von Binärzahl (= „Zahl im Bi- 
närsystem“) und Hexadezimalzahl (= 
„Zahl im Hexadezimalsystem“), aber der 
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Terminus „Dezimalzahl“ oder „dekadi- 
sche Zahl“ bedeutet normalerweise nicht 
„Zahl im Dezimalsystem“, denn dafür ha- 
ben wir bereits den allgemeinen, aber hier 
mißverständlichen Ausdruck „Zahl“. Wir 
definieren deshalb Dezimalzahl (a) im 
weiteren Sinne als „Zahl im Dezimalsy- 
stem“ und (b) im engeren Sinne als „Zahl 
im Dezimalsystem mit Dezimalpunkt bzw. 
-komma“, z.B. 123.456 oder 123,456. In 
diesem Beitrag werden wir „Dezimalzahl“ 
stets in dem erweiterten Sinne benutzen. 


Bei Positionssystemen entspricht die An- 
zahl der Zahlzeichen auch gleichzeitig der 
sog. Basis. Betrachten wir hierzu folgende 
Aufstellung: 


3210 Exponent 
4321 Dezimalzahl 


Die Dezimalzahl 4321 läßt sich auch als 
die Summe von (1 : 1) + (10:2) + (100- 
3) + (1000 - 4) schreiben, d.h. von rechts 
nach links repräsentiert die 1. Stelle die 
Einer (E), die 2. Stelle die Zehner (Z), die 
3. Stelle die Hunderter (H) und die 4. 
Stelle die Tausender (T) usw. Die Zahl 
4321 entsteht mithin durch die Addition 


0001 E 
+0020 2 
+0300 H 
+4000 T 





4321 


Wir sagen, daß Dezimalzahlen die Basis 
10 haben, wobei unter Basis die Grund- 
zahl in der Potenzrechnung gemeint ist 
(Basis T Exponent = Potenz). Es gilt dann 
in bezug auf unsere Zahl 4321 von rechts 
nach links: 


1*(10%0)= 1(E) 
2". (10 1)= 20 (Z) 
3. (1012) = 300 (h) 
4 » (10 7 3) = 4000 (T) 


1 + 20 + 300 + 4000 = 4321. Die Zeh- 
nerpotenzen lauten 1, 10, 100, 1000 usw. 


Aus philosophischer Sicht sind die obigen 
„Beweise“ allerdings ein Hysteron-Prote- 
ron, denn man kann das Positionssystem 
nicht auf die Potenzrechnung zurückfüh- 
ren, weil die Potenzrechnung bereits das 
Positionssystem voraussetzt, Zur Axioma- 
tisierung des Systems der natürlichen 
Zahlen wird auf die einschlägigen Werke 
von G.Peano und Whitehead/Russell ver- 
wiesen. Als Kurzdarstellung sei empfohlen 
„Handbuch philosophischer Grunabegrif- 
fe“, München 1974, S.1775 ff. Uns geht 
es jedoch hier nicht um mathematische 
Grundlagenforschung, sondern um das 
praktische (,„vorphilosophische”) Ver- 
ständnis. 


2.2.2. Binärsystem 


Nachdem wir nunmehr das Dezimalsy- 
stem an Beispielen erläutert haben, fällt es 
uns leicht, andere Positionssysteme zu 
definieren. Im Binärsystem gibt es 2 
Zahlzeichen — O und 1 (oder L) -, und die 
Basis ist 2. Die Zahlen im Binärsystem 
oder Dualsystem heißen Binärzahlen oder 
Dualzahlen („binär“ von lateinisch „bis“ 
= zweimal; „dual“ von lateinisch „duo“ = 
„zwei“), und eine einzelne Stelle einer x- 
stelligen Binärzahl wird als Bit bezeichnet 
(von englisch „binary digit“ = „bit“ = 
„Binärziffer“). Betrachten wir hierzu die 
folgende Aufstellung: 


3210 Exponent 
1111 Binärzahl 


Auch hier können wir wieder von rechts 
nach links eine Addition vornehmen: 


(2 7 0) = dezimal 1 
- (2 7 1) = dezimal 2 
(212) = dezimal 4 
(2713) = dezimal 8 


Hr 


1+2+4+38= 15. Somit entspricht der 
Binärzahl 1111 die Dezimalzahl 15. Ein 
weiteres Übungsbeispiel — ebenfalls von 
rechts nach links ausgerechnet: 


1101=(1"(210)) + 
0. (2T710)+ 
1. (212) + 
1.273) 

1101 =1+0+4+38 


1161 = dezimal 13 


Die Zweierpotenzen lauten 1, 2, 4, 8, 16, 
32, 64, 128, 256 usw. Wir können deshalb 
auch verkürzt schreiben: 1101 = (1-1) + 
(0-2) + (1:4) + (1-8) = dezimai 13. 
Bevor Sie nun weiterlesen, sollten Sie sich 
eine binär-dezimale Umrechnungstabelle 
(z.B. aus Peeker 7/85, S. 34) oder die 
nachstehende Kurztabelle zu Gemüte füh- 
ren und eine Reihe weiterer Umrechnun- 
gen mit Papier und Bleistift vornehmen. 


Eine Binärzahl läßt sich also in eine Dezi- 
malzahl umrechnen, indem man von 
rechts nach links die der Position entspre- 
chende Potenz entweder mit O oder mit 1 
malnimmt, womit das Ergebnis entweder O 
ist oder der Positionspotenz entspricht. 
Umgekehrt läßt sich eine Dezimalzahl in 
eine Binärzahl umwandeln, indem man 
fortlaufend durch 2 teilt und den jeweiligen 
Rest (D oder 1) von oben nach unten oder 
von rechts nach links notiert. Beispiel: 


FA 
10: 
DI 
Pa: 
Io: 


lö Rest OÖ (0 
5 Rest O0 (L 
2 Rest 1 (2. 
l Rest O0 (3, 
0 Rest 1 (4. 


DDINDMDN 


a a Eu 


u u u u Fe 


43210 Exponent 
10100 Binärzahl 


2.2.3. Hexadezimalsystem 


Neben dem Dezimal- und Binärsystem ist 
noch das Hexadezimalsystem gebräuch- 
lich. Hier gibt es 16 Zahlzeichen - 0, 1, 2, 
3,4,5,6,7,8,9,A,B,C,D, E, F-, und die 
Basis ist 16. Neben der Bezeichnung „He- 
xadezimalzahl“ oder kurz „Hexzahl” 
(„hex“ griechisch „sechs“, „decem” la- 
teinisch „zehn“) gibt es noch den Termi- 
nus „Sedezimalzahl" („sedecim” bzw. 
„sex-decim“ lateinisch „sechzehn“), der 
sich jedoch nicht durchgesetzt hat. Man- 
che Puristen wollen indessen nur die rein- 
lateinische Bezeichnung „sedezimal“ gel- 
ten lassen. Es sind dies dieselben Puri- 
sten, die vom rein-lateinischen „Ipsomo- 
bil“ oder vom rein-griechischen „Autoki- 
netikon“ sprechen, während der Rest der 
Menschheit weiterhin beim griechisch-la- 
teinischen „Automobil“ oder kurz „Auto“ 
bleibt. 


Die nachfolgende Kurztabelle dient zum 
bequemen Umrechnen zwischen den drei 
Positionssystemen - binär, dezimal, hexa- 
dezimal: 


0000 = 00 = 
0001 =01 = 
0010 =02 = 
0011 =03 = 
0100 = 04 = 
0101 =05 = 
0110 = 06 = 
0111 =07 = 


— 

= 

= 

= 

I 

oO 
NEREOB SS oa OTTO 

Il 
Tim G on Loans 


Hexadezimalzahlen wurden in der EDV 
deshalb eingeführt, weil die Speicherstel- 
le, die ein Mikroprozessor bearbeiten 
kann, in der Regel das x-fache einer 4stel- 
ligen Binärzahl und somit das x-fache ei- 
ner 1stelligen Hexzahl enthält. im einzel- 
nen unterscheidet man: 


Nibble, z.B. 1010 = A 
A4stellige Binärzahl = 1stellige Hexzahl 


Byte, z.B. 10101010 = AA 
östellige Binärzahl = 2stellige Hexzahl 


Wort, z.B. 1010101010101010 = AAAA 
16stellige Binärzahl = 4stellige Hexzahl 


Da der 6502-Prozessor hinsichtlich der Bi- 
närmathematik nur über Additions- und 
Subtraktionsbefehle verfügt, die exakt je- 
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weils 1 ganzes Byte bearbeiten (= 8stelli- 
ge Binärzahl = 8 Bits = 2stellige Hexzahl), 
sind hier die Operanden (Summand, Mi- 
nuend, Multiplikator, Divisor usw.) einer 
binären Rechenoperation stetseinx-faches 
eines Bytes. Beispiele: 8-mal-8-Bit-Multi- 
plikation, 16-durch-8-Bit-Division usw. 


3. Addition 


3.1. Dezimale Addition 


Einstellige Dezimalzahlen können wir „im 
Kopf“ addieren, d.h. wir wissen sofort, daß 
2.B.2+2=4 ist, Mehrstellige Dezimal- 
zahlen werden schriftlich addiert, indem 
man die beiden Summanden oder Adden- 
den rechtsbündig untereinanderschreibt 


‚und von rechts nach links die Einer, Zeh- 


ner, Hunderter usw. zur Summe zusam- 
menzählt. Beispiel: 


1234 Summand 
+ 2345 Summand 


3579 Summe 


Dabei kann ein Übertrag von der Einer- zur 
Zehnerposition, von der Zehner- zur Hun- 
derterposition usw. stattfinden. Beispiel: 


1234 Summand 
+ 5778 Summand 
11 Übertrag 


TOl2 Summe 


4 + 8 ergibt 12 (= 10 + 2). Da jedoch die 
Einerposition nur 1 Ziffer aufnehmen kann, 
tragen wir bei der Einerposition 2 ein und 
übernehmen die 1, die für die 1 von 10 
steht, in die Zehnerposition. Danach ad- 
dieren wir in der Zehnerspalte3+ 7 +1 = 
11 usw. Dies alles ist Ihnen seit Ihrer 
Kindheit bereits bestens vertraut. 


Es gibt folgende Grundregeln, die sowohl 
für Dezimal- als auch Binärzahlen gelten: 


1. Wenn man 2 Summanden addiert, ist 
der Übertrag in die nächste Position höch- 
stens 1. Dies gilt nicht, wenn man mehrals 
2 Summanden auf einmal addiert. 


2. Wenn man 2 x-stellige Summanden ad- 
diert, ist das Ergebnis höchstens (x+1)- 
stellig. Dies gilt ebenfalls nicht, wenn man 
mehr als 2 Summanden auf einmal addiert. 
Beispiel für den ungünstigsten Fall: 


9999 Summand 
+ 9999 Summand 
1111 Übertrag 


19998 Summe 


3.2. Binäre Addition 


Bei der binären Addition müssen wir uns 
zunächst mit den Rechenregeln vertraut 
machen. Da wir später bei der binären 
Multiplikation auch mit mehr als 2 Sum- 
manden rechnen werden, geben wir auch 
deren Ädditionsregeln an: 


0 +0 = E übertrag 6 

l1+0 = 1 Übertrag 0 

0 +1 = 1 Übertrag 0 

1+1=0 Übertrag 1 

1+1+1=1 Übertrag 1 

1+4 +1+1=0 Übertrag 1 +1 
l+1+1+1+1=]1 Übertrag 1 +] 


USW. 


Man präge sich ein, daß im Binärsystem 1 
+ I nicht etwa 2 ergibt, denn die 2 existiert 
hier gar nicht als Zahlzeichen. 1 + 1 ergibt 
mithin 10 oder O Übertrag 1. 


Bitte rechnen Sie nun mit Papier und Blei- 
stift folgende Übungen durch: 


0000 Summand (00) 
+ 1111 Summand (15) 


3111 Summe (15) 


1010 Summand (10) 
+ 0101 Summand {05) 





Olll Summand (07) 
+ 0011 Summand (03) 
l11l Übertrag (1 ) 





1010 Summe {10} 


1111 Summand (15) 
+ 0111 Summand (07) 
1111 Übertrag (l ) 


10110 Summe (22) 


1111 Summand {l 
+ 1111 Summand (1 
1111 Übertrag {1 


11110 Summe (30) 


Dieses letzte Beispiel zeigt, daß die Addi- 
tion von 2 x-stelligen Binärzahlen höch- 
stens zu einem (x+1)-stelligen Ergebnis 
führt. Dies gilt nicht, wenn 3 oder 4 Binär- 
zahlen auf einmal addiert werden: 


1110 Summand (14) 

+ 1111 Summand (15) 

+ 1100 Summand (12) 
1ll Übertrag (1) 
a Übertrag 


101001 Summe (41) 


1111 Summand (15) 

+ 1111 Summand (15) 

+ 1111 Summand (15) 

+ 1111 Summand (15} 

1111 Übertrag {2 ) 
l1l1ll Übertrag 
21] Übertrag 


BE 


111100 Summe (60) 
Wie ersichtlich, muß man bei der Addition 
von mehr als 2 Summanden mehr als eine 
Übertragszeile einrichten. 
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3.3. 6502-Addition 


Während wir bei der schriftlichen Addition 
Binärstelle für Binärstelle, also Bit für Bit, 
zusammengezählt haben, erfolgt die 
6502-Addition aus der Sicht des Program- 
mierers stets in 8-Bit-Schüben, d.h. 
byteweise. Im einfachsten Fall werden 2 
Bytes zusammengezählt. 


Der Übertrag bzw. das Übertrag-Bit wird 
im Status-Register des 6502-Prozessors 
als sog. Carry-Flag (= Übertrag-Spei- 
cherstelle) registriert. Das Carry-Flag C 
kann mit CLC (= Clear Carry) auf O und 
mit SEC (= Set Carry) auf 1 gesetzt wer- 
den. Der Additionsbefehl ADC addiert den 
Inhalt der Speicherstelle M (= Memory) zu 
dem Inhalt des Akkumulators A und legt 
das Ergebnis (vorübergehend) im Akku- 
mulator A ab. Unter Vor-Übertrag ver- 
steht man den Inhalt des Carry-Flags vor 
der Addition und unter Nach-Übertrag 
den Inhalt des Carry-Flags nach der Addi- 
tion. Es gibt bei anderen Prozessoren ei- 
nen Additionsbefehl, der nur den Nach- 
Übertrag registriert, der bei der Addition 
von A und M entsteht, symbolisch 
A+M->AHrC. 


Der 6502-Befehl ADC (= Add with Carry) 
berücksichtigt jedoch nicht nur den Nach- 
Übertrag, sondern auch stets den Vor- 
Übertrag, symbolisch 
A+M+C-A+rC. 


Deshalb muß eine Addition immer mit CLC 
eingeleitet werden. Beispiele: 


Vorher: 

G=0 

A = 00000001 
M = 00000001 
Befehl: 
ADCM 
Nachher: 
C=:0 

A = 00000010 


Kommentar: Hier stört das fehlende CLC 
nicht, weil C bereits vorher zufällig O war. 
Darauf kann man sich jedoch nicht ver- 
lassen. 


Vorher: 

Gr 

A = 00000001 
M = 00000001 
Befehl: 
ADCM 
Nachher: 
E=0 

A = 00000011 


Kommentar: Hier fand eine fehlerhafte Ad- 
dition statt (| + 1 = 3!), weil der Vor- 
Übertrag nicht durch CLC gelöscht wurde 
(effektivi+1+1=3). 
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Vorher: 

C=1 

A = 00000001 
M = 00000001 
Befehl: 

CLC 

ADCM 
Nachher: 
o=0 

A = 00000010 
Kommentar: Richtige Addition. 


Wenn wir für eine 8-und-8-Bit-Addition als 
Ergebnis nur 1 Byte reservieren, so kön- 
nen wir einen möglichen Überlauf (= 
Nach-Übertrag 1) durch folgende Befehls- 
sequenz abfangen: 


ELC 

ADC M 

BCS FEHLER 
BCC ENDE 


Grund: CLC löscht den Vor-Übertrag. 
Wenn dann nach der Addition von A undM 
der Nach-Übertrag 1 beträgt, so muß die 
Summe von A + M größer als 11111111, 
d.h. größer als dezimal 255 gewesen sein. 
Im Falle eines Überlaufs (Nach-Übertrag 
1) wird der Sprung BCS (Branch on Carry 
set) ausgeführt, andernfalls der Sprung 
BCC (Branch on Carry clear). 

Ein vollständiges Additionsbeispiel für die 
ö-Bit-Ssummanden MI und M2 sieht im 
Falle einer 8-Bit-Summe S so aus: 


CLC 

LDA Ml 

ADC M2 

BCS FEHLER 
STAS 

BCC ENDE 


Gestattet man eine 16-Bit-Summe SL und 
SH (Low und High Byte = niederwertiges 
und höherwertiges Byte), so wird ein nun- 
mehr zulässiger Überlauf im höherwerti- 
gen Byte der Summe abgefangen. SH ent- 
hält nach der Addition entweder O (kein 
Überlauf) oder 1 (Überlauf). Einen größe- 
ren Wert als 1 kann SH niemals enthalten, 
weil der Nach-Übertrag höchstens 1 ist: 


LDA #0 st alt 

SIA SH ;0 setzen. 

CLC ;‚Vor-Übertrag = 0 
LDA Ml ;l. Summand 

ADC M2 ;2. Summand 

STA SL ;,SL-Sunmme 

BCC ENDE ;kein Nach-Übertrag. 
ING SH ;SH auf 1 erhöhen 
BCS ENDE ;wegen Nach-Übertrag. 


Wenn die Summanden mindestens je 2 
Bytes umfassen, so muß man vom nieder- 
wertigen (Low) Byte zum höherwertigen 
(High) Byte - also quasi von rechts nach 
links — addieren. Nehmen wir an, der 1. 
Summand belege die Speicherstellen MiL 
und MIH und der 2. Summand M2L und 
M2H. Als Summe dieser 2-Byte- oder 16- 
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Bit-Addition sei ein 3-Byte- oder 24-Bit- 
Ergebnis SL, SM, SH (Low/Middle/High 
Byte) zugelassen. Die Addition sieht dann 
wie folgt aus: 


LDA #0 ‚SH auf 

STA SH ‚0 setzen, 

CHR ;Vor-Übertrag = 0 
LDA MIL ;Low Bytes 

ADC M2L ;der Summanden, 
STA SL ;SL-Summe 

LDA MlH ;High Bytes 

ADC M2H ;der Summanden, 
STA SM ;SM-Summe 

BCC ENDE ;kein Nach-Übertrag,. 
INC SH ;SH auf 1 setzen 


BCS ENDE ;wegen Nach-Übertrag, 


Betrachten wir diese Addition an einem 
konkreten Zahlenbeispiel: 


High Low 

11111111 112111111 Summand Ml 
+ 21111111 11111111 Summand M2 

1 1 0 Übertrag 


211111111 11111110 Summe S 





Da wir die Addition mit CLC einleiten, ist 
der Vor-Übertrag auf 0 gesetzt. Die Addi- 
tion der beiden niederwertigen Bytes der 
Summanden läuft also auf 

11111111 + 11111111 +0 

hinaus, wodurch ein Nach-Übertrag von 1 
entsteht, der zugleich zum Vor-Übertrag 
bei der nachfolgenden Addition der beiden 
höherwertigen Bytes der Summanden 
wird, so daß für diese gilt: 

11111111 + 11111111 +1 

Dies führt zu einem Nach-Übertrag von 1 
in das 3. Byte der Summe, die nunmehr 
effektiv so aussieht: 


High Middle Low 
00000001 11111111 11111119 


Wie dieses ungünstigste Zahlenbeispiel 
zeigt, sind Vor- und Nach-Übertrag jeweils 
höchstens 1, so daß problemlos eine be- 
liebig genaue binäre Addition implemen- 
tiert werden kann. 


4. Subtraktion 
4.1. Dezimale Subtraktion 


Während man bei der Addition die beiden 
Summanden vertauschen kann, muß man 
bei der Subtraktion die Reihenfolge be- 
achten, denn 7 - 2 entspricht nicht 2 - 7. 
Bei der Gleichung 

fr 2=5 

ist die 7 der Minuend, die 2 der Subtra- 
hend und die 5 die Differenz. Der Minuend 
ist also die Zahl, von der der Subtrahend 
abgezogen wird. Während man die Sub- 
traktion einstelliger Dezimalzahlen „im 
Kopf“ erledigt, muß man bei mehrstelligen 
Zahlen Minuend und Subtrahend rechts- 
bündig untereinanderschreiben. Danach 
wird von rechts nach links entweder die 
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Subtrahendenziffer von der jeweiligen Mi- 
nuendenziffer abgezogen (= norddeut- 
sches Wegnehmen) oder die Differenz 
zwischen Minuendenziffer und Subtrahen- 
denziffer zur Subtrahendenziffer hinzuge- 
zählt (= süddeutsches Ergänzen). 
Wenn kein Borgen (= negativer Übertrag 
= „Vortrag“ = „Unterlauf“ = „der Borg‘) 
stattfindet, d.h. wenn die Minuendenste|- 
len nicht kleiner als die jeweiligen Subtra- 
hendenstellen sind, sind beide Verfahren 
gleichwertig. Beispiel ohne „Borgen”: 


5678 Minuend 
-1254 Subtrahend 


AAAA Differenz 


Norddeutsch: 8 weniger 4 = 4, 7 weniger 
3 = 4, 6 weniger 2 = 4 und 5 weniger I = 
4, 

Süddeutsch: 4bis8 =4,3bis7 =4, 2bis 
6=4Aund1bis5 = 4. 


Norddeutsches Borgen: 


l11l Übertrag 
7234 Minuend 
-5678 Subtrahend 


1556 Differenz 





 Semian presents... 


e CP/M Plus System für Apple //c, e 


CP/M Plus Modul mit Betriebssystem CP/M 3.0 


Z80H mit 8MHz, 128K RAM, Drucker-Spooler mit 12K RAM 


Maus-Funktion mit allen CP/M Programmen! 
Kompatibel zu CP/M 2,20 und 2.23. 


Einsatz aller CP/M Sprachen und Programme (WORDSTAR etc.) 


K010 Apple //c CP/M Plus System 
K011 Apple //c CP/M Plus System und 


WORDSTAR/MAILMERGE-Programme 


K012 Apple //c CP/M Plus System 


e 1 MB RAM Karte für Apple //+, e 


FLIPPER Karte wird komplett mit 1 MB RAM geliefert. 
Max. 6 MB RAM für Ihren Apple /+, e 


1. Stelle: 4 - 8 geht nicht, also 14-8 =6, 1 
geborgt; 

2. Stelle: 3-1 = 2, 2-7 gehtnicht, also 12 
- 7 = 5, 1 geborgt; 

3. Stelle: 2-1 = 1, 1-6 gehtnicht, also 11 
-6 = 5, 1 geborgt; 

4. Stelle: 7-1=6,6-5 = 1; feriig. 

Beim norddeutschen Verfahren wird also 
der geborgte Übertrag von der nächsten 
Minuendenstelle abgezogen. 


Süddeutsches Borgen: 


7254 Minuend 
-5678 Subtrahend 
lll Übertrag 


1556 Differenz 


1. Stelle: 8 bis 4 geht nicht, also 8 bis 14 = 
6, 1 geborgt; 

2, Stelle: 7 +1 = 8, 8bis 3 gehtnicht, also 
8 bis 13 = 5, I geborgt; 

3. Stelle:6+ 1 = 7,7 bis2gehtnicht, also 
/bis 12 = 5, 1 geborgt; 

4. Stelle: 5+1=6,6bis 7 = 1; fertig. 
Beim süddeutschen Verfahren wird also 
der geborgte Übertrag zur nächsten Sub- 
trahendenstelle hinzugezählt. 






Ausgabe und 
Eingabe mit 





im Slot Ihres 
DM 949,00 


DM 1399,00 
DM 599,00 







TYPETERM® 
APPLE IV/lle 


Das bedeutet: Computer- 
textverarbeitung von der 


Schreibmaschinentastatur! 
Steckerfertig ohne Umbau. 





4.2. Binäre Subtraktion 


Zunächst müssen wir uns mit den Re- 
chenregeln der binären Subtraktion ver- 
traut machen, wobei wir uns auf den ein- 
fachsten Fall (1 Minuend minus 1 Subtra- 
hend) beschränken, weil die kombinierte 
Subtraktion (1 Minuend minus mehrere 
Subtrahenden) „zuviel Kopf nimmt‘ 
(Adam Ries) und deshalb hier unnötig ver- 
wirren würde. 


1. -3. Regel 
Va 
Eos el 
Da 


Dies sind die drei einfachen Regeln, weil 
sie zu keinem negativen Übertrag führen. 


4. Regel 


0 
-1 


1 


Hier muß geborgt werden, indem anstelle 
des effektiven Minuenden O der Schein- 







Ausgabe mi 


TYPETERM® 
JUNIOR 


im Slot Ihres 


APPLE Illle 


Paketpreis DM 899,- 
Schreibmaschine AX-10 mit 
Interface TYPETERM JUNIOR, 
steckfertig. 

























100 % Kompatibel mit PRODOS (Appleworks), DOS, PASCAL, CP/M, 
Kein 'patchen' notwendig, Einsatz in jedem Slot 
Gleichzeitiger Einsatz verschiedener Betriebssysteme 


K070 Apple //+, e Flipper Karte mit 1 MB RAM DM 1699,00 


e Champion Karte für Apple //+, e 


Parallele Text- und Grafik-Druckerkarte komplett mit Kabel 
— Mit 16K oder 64K RAM Puffer, 40/80 Zeichen Dump 
— Einsatz von DOS, PRODOS ({Appleworks), PASCAL, CP/M 
— Volle Apple //e Graphik, Serieller Ausbau möglich. 
K030 Apple //+, e Champion Interface DM 250,00 
K032 Apple //+, e Champion Interface 16K RAM DM 459,00 
K033 Apple //+, e Champion Interface 64K RAM DM 599,00 


Alle Preise inkl. MwSt. Auf alle Produkie 12 Monate Garantie. 
Neuen Katalog anfordern. Händieranfragen willkommen! 
Wir sind General-Importeur von CIRTECH-Produkten. 


M.Semjan 
puter Systeme 


Com 


Postfach 90 01 64 - 6000 Frankfurt/M 90 
Tel. 069-70 18 53 - Mo-Fr 10.30-15 Uhr 
















TYPETERM- DM 479,- 
Interface 


für alle BROTHER-Typenrad- 
schreibmaschinen ab CE-51 


Paketpreis: DM 1348,— 


Schreibmaschine 
CE-51 mit TYPETERM 













CE-61 mit TYPETERM „run. DM 1737, — | 

CE-70 mit TYPETERM ......... DM 2758, - ” 
EM-80 mit TYPETERM ss. DM 2037,— QUALITÄT AUS ERSTER HAND, 
TYPETERM-Kit für CE-50 u... DM 468,- 





| TYPETERM JUNIOR mit AX-10 — unser 

| besonders günstiges Gespann, ebenfalls 

steckfertig. Mit TYPETERM JUNIOR kann 

die AX-10 mehr, Sie wird zum vollwertigen 

Typenraddrucker für Ihren Apple: 

@ 3 verschiedene Schriftstärken 

® Automatisches Unterstreichen 

@ 2 Zeichensätze z.B. deutsch u, ASCII 

@ 2 Zeichenabstände 

@ 2k ROM auf der Karte für Ausgabe unter 
DOS, PRODOS, CP/M u. PASCAL. 


TYPETERM JUNIOR - ein Produkt von 


f) 
interkom Kock & Mreches GmbH 


Postf., 3004 Isernhagen 4 
Teleion 05139-879393 











TYPETERM - ein starkes Interface für 
starke Maschinen! Alle Cursor- und Cti- 
Befehle. 4k ROM auf der Karte für DOS, 
PRODOS, CP/M, PASCAL. 2 Zeichensätze 
verfügbar z. B. deutsch u. ASCIl. Alle 

| Features: Hoch-/Tiefstellen, autom. Unter- 
streichen, var. Zeichen und Zeilenabst., 
autom. Papierzuführung usw, Ausführl, 
Handbuch vorab: 10,- DM auf Konto 
14770-306 PGiroA Han (Anrechnung). 


| TYPETERM - ein Produkt von 
Kock & Mreches GmbH 


interkom 
I Postf., 3004 Isernhagen 4 


electronic Teleton 05139-87393 





























electranic 
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Minuend 10 benutzt wird, wobei die „1“ 
der „10“ von der nächsten Stelle geborgt 
wird, also so: 


102) 
er all) 





TeEt, 


Je nachdem, ob die nächste Minuenden- 
stelle 1 oder O beträgt und ob bei der 
Subtraktion der momentanen Stelle be- 
reits ein negativer Übertrag der vorange- 
henden Stelle zu berücksichtigen ist, sind 
einige Spezialfälle zu unterscheiden, wo- 
bei wir uns aus Platzgründen auf das süd- 
deutsche Verfahren (Subtrahendenstelle 
+ Übertrag statt Minuendenstelle - Über- 
trag) beschränken wollen: 


Seal 12.02 

100 Minuend 
-Ol1l Subtrahend 

11 Übertrag 


3. stelle 


001 Differenz 


1. Stelle: 1 bis O geht nicht, also 1 bis 10 = 
1, 1 geborgt; 

2. Stelle: 1 + 1 = 10, 10 bis O geht nicht, 
also 10 bis 10 = 0, 1 geborgt; 

3. Stelle: 0 +1 = 1,1 bis1 = O; fertig. 


a2, In, 2, 
110 Minuend 
-0Ol1l Subtrahend 
ll Übertrag 


Oll Differenz 


3. stelle 


1. Stelle: 1 bis O geht nicht, also 1 bis 10 = 
1, 1 geborgt,; 

2. Stelle: 1 + 1 = 10, 10 bis 1 geht nicht, 
also 10 bis 11 = 1, 1 geborgt; 

3. Stelle: 0 +1 = 1,1bis 1 = 0; fertig. 


Wie ersichtlich, kann die Auflösung der 
Minuendenstelle höchstens zu 10 (dezi- 
mal 2) oder 11 (dezimal 3) führen („Zwei- 
Drei-Regel“). Die nach dem süddeut- 
schen Verfahren vorgenommene Zusam- 
menfassung von Subtrahend + Übertrag 
(= Gesamtsubtrahend) kann 1 (dezimal 1) 
oder 10 (dezimal 2) ergeben. Daraus las- 
sen sich alle denkbaren Kombinationen 
ableiten, Versuchen Sie nun, die folgen- 
den Beispiele mit Papier und Bleistift zu 
lösen. 


110713) 
-1010 (10) 





—_—ıa 


0011 (03) 


1100 (12) 
1011.11, 


1000 (08) 
-0001 {01} 
alle 107) 
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Wer sich bei den obigen Aufgaben unter- 
fordert fühlen sollte, probiere einmal die 
folgende kombinierte Subtraktion. Der 
Umweg über die dezimale Umrechnung 
wäre gemogelt! 


l1111110 Minuend 
-00000001 Subtrahend 
-00000010 Subtrahend 
-00000101 Subtrahend 
-00001011 Subtrahend 
-O0010111 Subtrahend 
-O0101111 Subtrahend 
-01011111 Subtrahend 7 

Übertrag 


Differenz (???) 


ob DdDHr 











4.3. 6502-Subtraktion 


Die 6502-Subtraktion läßt sich als Umkeh- 
rung der 6502-Addition begreifen: 

— Dem ADC-Additionsbefehl entspricht 
der Befehl SBC in der Subtraktion. 

— Vor der Addition muß das Carry-Flag 
gelöscht (CLC), vor der Subtraktion ge- 
setzt werden (SEC). 

— Nach der Addition bedeutet ein ausge- 
führter BCC, daß kein Additionsüberlauf 
auftrat, nach der Subtraktion bedeutet ein 
ausgeführter BCS, daß kein Subtraktions- 
überlauf („Unterlauf“) auftrat. 

Die 8-minus-8-Bit-Subtraktion sieht ge- 
genüber der entsprechenden Addition mit- 
hin so aus: 


Subtraktion Addition 

SEC GEBE 

LDA MINUEND LDA SUMMANDI1 
SBC SUBTRAHEND ADC SUMMAND2 
BCC FEHLER BCS FEHLER 
BCS ENDE BCC ENDE 


Eine 16-minus-16-Bit-Subtraktion, bei der 
ML/MH, SL/SH und DL/DH für die jeweils 
nieder/höherwertigen Bytes des Minuen- 
den, des Subtrahenden und der Differenz 
stehen, würde folgendermaßen codiert: 


SEC 

LDA ML 

SBC SL 

STA DL 

LDA MH 

SBC SH 

STA DH 

BCC FEHLER 
BCS ENDE 


‚Low Byte 


‚High Byte 


Bislang haben wir die Subtraktion einfach 
als Gegenstück zur Addition mit umge- 
kehrten Vorzeichen betrachtet. Wenn wir 
jedoch ein konkretes Zahlenbeispiel unter 
die Lupe nehmen, kommt der „Blackout“: 


10000000 00000000 Minuend 
- Ollll111 11111111 Subtrahend 
117112117 1111107, Übertrag 


a ee U U ee7722727ZE GL BEGEBEN 





00000000 00000001 Differenz 
High Low 


Das obige Beispiel entspricht noch der 
Klassischen süddeutschen Methode. Wir 
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beginnen jedoch die Subtraktion durch 
SEC mit einem Vor-Übertrag! Danach 
müßte es „richtig“ heißen: 


10000000 00000000 Minuend 
- 01111111 11111111 Subtrahend 
l Vor-Übertrag 


11111111 311111] Übertrag 


m 


00000000 00000000 Differenz (?) 
High Low 


Dies kann offenbar nicht mit mit rechten 
Dingen zugehen, denn 32768 - 32767 ist 
immer noch 1 und nicht Ol! Des Rätsels 
Lösung ist die sog. Komplement-Addition, 
denn die SEC-SBC-Befehlsseguenz be- 
deutet eigentlich SEC-ACC („ACC" = 
Add Complement with Carry“). Wenn Ih- 
nen dies alles zu verwirrend erscheint, so 
überspringen Sie am besten den nächsten 
Abschnitt, da er für die Multiplikation und 
Division nicht benötigt wird. 


4.4. Komplement-Addition 
4.4.1. Dezimale Komplement-Addition 


Die Subtraktion „nimmt viel Kopf“, wenn 
mehrere Minuendenstellen hintereinander 
durch Borgen aufgelöst werden müssen. 
Deshalb haben findige Mathematiker die 
Subtraktion auf die sog. komplementierte 
Addition zurückgeführt. Betrachten wir 
hierzu die folgenden Ziffernpaare: 


PoODnD— oO 
VI OO I 00 (0 


Die 9 bezeichnen wir als Einerkomple- 
ment zur OÖ, die 8 als Einerkomplement zur 
1 usw. Umgekehrt ist auch die O das Einer- 
komplement zur 9, die 1 das Einerkomple- 
ment zur 8 usw. 

Im Dezimalsystem ist die Basis b = 10. 
Wenn wir z als Ziffer und z’ als Komple- 
ment-Ziffer definieren, dann gilt: 


z=(b-1)-z 
Beispiel: 

b= 10, z= 0, ergo 
z=(10-1)-0 
z=9-0 

z=9 


Das Einerkomplement Z’ der Zahl Z wird 
gebildet, indem jede einzelne Ziffer z der 
Zahl Z zu zZ’ komplementiert wird. Bei- 
spiele: 


12345 Z 
87654 Z 


432102 
56789. Z 


Das sog. Zweierkomplement Z’” zur Zahl 
Z. wird gebildet, indem das Einerkomple- 
ment Z’ um 1 erhöht wird. Beispiele: 


12345 2 
87654 2' 
+ 1 


m 


87655 21! 


43210 2 
26789 2' 
= l 





595790 2'' 


Man hat nun herausgefunden, daß man die 
normale Subtraktion zweier x-stelliger 
Zahlen M (= Minuend) minus S (= Subtra- 
hend), d.h. 

M-S, 

wenn gilt 

M>=S, 

auf die Komplement-Adaition 

M+S’” 

zurückführen kann, wenn man den sich 
dabei ergebenden Übertrag U in die 
(x+1)te Stelle — hier in die 5. Stelle — 
„unter den Tisch fallen läßt“. Beispiele: 














1234 M 1234 M 
=,1234.S + 8766 S''! 
U 1-LI6E 7 
0000 0000 
1234 M 1234 M 
- 1108 + 8878 S'! 
U 177109 
0112 0112 


Wenn S weniger Stellen als M hat, so muß 
man S mit führenden Nullen auffüllen: 





1254 M 1234 M 
- 0022 5 +: 99783. 
U 1a Pa Bu 5, 
T21 1212 


Obwohl wir uns in diesem Aufsatz auf die 
natürlichen, sprich positiven Ganzzahlen 
beschränken wollen, müssen wir auch den 
Fall M< S betrachten, da er weiter unten 
bei der 16-minus-16-Bit-Subtraktion im 
niederwertigen Byte vorkommen kann. 
Beispiel: 





1234 M 1234 M 
- 1235 5 a Seelen 

1, @U U 

l 0 N 

9999 9999 

0001 0001" 
— 0001 -0001 


Wenn bei der konventionellen Subtraktion 
der Nach-Übertrag in die (x+1)te Stelle N 
= 1 und bei der Komplement-Addition N 
= 0 ist, so muß von dem Ergebnis das 
Zweierkomplement gebildet und das Vor- 
zeichen umgekehrt werden. 

(Bei der konventionellen Subtraktion 
könnte man auch b ? x, d.h. konkret 10 ? 
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4 = 10000 vom Ergebnis 9999 abziehen, 
also 9999 - 10000 = -1. In der Praxis 
schreibt man jedoch nicht 1234 - 1235, 
sondern 1235 - 1234 = +1, und ändert im 
nachhinein das Vorzeichen in -1.) 


Der Sachverhalt wird deutlicher, wenn wir 
die Komplement-Addition ziffernweise 
vornehmen. Betrachten wir hierzu noch 
einmal den denkbar einfachsten Fall, bei 
dem bei der konventionellen Subtraktion 
gar kein Übertrag vorkommt: 








321 Stelle 
876 M 876 M 
- 123 5 + 877 5" 
U LI U 
153 TBS 


Die Komplement-Addition läßt sich von 
rechts nach links, d.h. von der 1. bis zur 3. 
Stelle, ziffernweise so durchführen: 


2 l Stelle 
7 6 N-Ziffer 
8 +7 S'!-Ziffer 


oo oa 


Hier ergab sich für jede Ziffer ein Übertrag 
von 1. Bei dem nächsten Beispiel erfolgt 
bei der konventionellen Subtraktion je- 
doch „zwischendrin“ ein Übertrag, der 
sich gleichwohl nicht als Nach-Übertrag 
auf die (x-+1)te Stelle auswirkt: 


123 Stelle 
806 M 806 M 
= 123.0, TB. 


i U a N) 








6583 683 


Wenn wir die Komplement-Addition wie- 
der ziffernweise von der 1. bis zur 3. Stelle 
durchführen, so wird der Übertrag in der 2. 
Stelle gleich 0, und wir dürfen dann in der 
3. Stelle nur das Einerkomplement und 
nicht mehr das Zweierkomplemernt bilden: 


3 2 l Stelle 

8 Ö 6 N-Ziffer 
+8(!) +8 +7 S'('!)-Ziffer 

1 0 1% 

6 8 


Damit kommen wir endlich dem Wesen 
der Komplement-Addition auf die Spur: 


1. Stelle: Wir beginnen mit einem Vor- 
Übertrag von 1, bilden das Einerkomple- 
ment von der 1. Subtrahendenstelle 3, d.h. 
6, und zählen den Vor-Übertrag 1 hinzu, 
womit sich das Zweierkomplement 7 er- 
gibt. Dann addieren wir 6 (1. Minuenden- 
stelle) und 7 (Zweierkomplement der 1. 
Subtrahendenstelle): 6 + 7 = 3, Übertrag 
1. Wir tragen in der 1. Differenzstelle 3 ein 
und übernehmen den Übertrag 1 als 
Nach-Übertrag in die 2. Stelle. 


2. Stelle: Wir bilden das Einerkomplement 
der 2. Subtrahendenstelle 2, d.h. 7, und 
zählen den Vor-Übertrag 1 hinzu, womit 
sich das Zweierkomplement 8 ergibt. 
Dann addieren wir O (2. Minuendenstelle) 
und 8 (Zweierkomplement der 2. Subtra- 
hendenstelle): O0 + 8 = 8, Übertrag 0. Wir 
tragen in der 2. Differenzstelle 8 ein und 
übernehmen den Übertrag O als Nach- 
Übertrag in die 3. Stelle. 


3. Stelle: Wir bilden das Einerkomplement 
der 3. Subtrahendenstelle 1, d.h. 8, und 
zählen den Vor-Übertrag O hinzu, womit 
sich effektiv das Einerkomplement 8 er- 
gibt. Dann addieren wir 8 (3. Minuenden- 
stelle) und 8 (Einerkomplement der 3. 
Subtrahendenstelle): 8 + 8 = 6, Übertrag 
1. Da keine weitere Stelle mehr vorkommt, 
ist dies der Nach-Übertrag. 


Wenn der Nach-Übertrag 1 ist, so können 
wir ihn unter den Tisch fallen lassen, denn 
die Differenz ist eine positive Zahl und 
damit richtig. Wenn der Nach-Übertrag 0 
ist, so ist die Differenz eine negative Zahl 
und damit falsch. Merksatz zur Komple- 
ment-Addition: 


Mit Vor-Übertrag 1 beginnen und nachher 
prüfen, ob Nach-Übertrag 1 ist. Dann ist 
Differenz korrekt. 


4.4.2. Binäre Komplement-Addition 


Für das Binärsystem gilt ebenfalls die 
Formel 

z’=(b-1)-z (siehe 4.4.1) 

Bei der binären Basis b = 2 ergibt sich für 
die zwei Ziffern z: 


z=0, ergo 
z=(2-1)-0 
Zz=1-0 
Z=1 

und 
z=1,ergo 
z=(2-1)-1 
ze = 
Z=0 


Zunächst bringen wir einige Übungsbei- 
spiele zum Zweierkomplement von mehr- 
stelligen Binärzahlen Z: 


11110000 2 
00001111 2' 
+00000001 


00010000 2'' 


01010101 2 
10101010 2' 
+00000001 


10101011 Z'' 


00000000 Z 
1 31.1, 10522 
+00000001 


| — 





100000000 2'' 
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In diesem letzten Fall führt das Zweier- 
komplement zu einem Überlauf. Betrach- 
ten wir nunmehr das Subtraktionsbeispiel, 
mit dem wir den Abschnitt 4.3 abgebro- 
chen haben (M = Minuend, S = Subtra- 
hend, U = Übertrag): 


10000000 00000000 M (32768) 
= 01112719996 127217139787032767) 


00000000 00000001 (00001) 


Wir formen den Subtrahenden zum Zwei- 
erkomplement um 


OL EITEEITETIIIIE5S 
10000000 00000000 S' 
10000000 00000001 5'' 


und führen dann die Zweierkomplement- 
Addition durch 


10000000 00000000 M 
+ 10000000 00000001 S'!' 
]: U 


00000000 00000001 





Wenn wir statt dessen eine Einerkomple- 
ment-Addition mit einem Vor-Übertrag von 
1 vornehmen, ergibt sich folgende Aufstel- 
lung: 


10000000 00000000 M 
+ 10000000 00000000 S' 
1 al) 


00000000 00000001 


Betrachten wir abschließend den Fall einer 
16-minus-16-Bit-Subtraktion, bei der vom 
niederwertigen zum höherwertigen Byte 
(a) bei der konventionellen Subtraktion ein 
Übertrag von 1 und (b) bei der Komple- 
ment-Addition ein Übertrag von O erfolgt, 
wobei wir zunächst die konventionelle 


Subtraktion voranstellen (V = Vor-Über- 
trag, N = Nach-UÜbertrag): 
11111111 00000000 M ( 65280) 
- 00001111 11111111 S { 04095) 
l 0) N { 0) Yo! 
aa a Be Be Ka BE U u Lie) 
0 N (0 ) N=0! 





SEELE a a u a nn 


11101111 00000001 ( 61185) 


Als Einerkomplement-Addition mit Vor- 
Übertrag 1 ergibt sich folgende Aufstel- 
lung: 


11111111 00000000 M ( 65280) 
+ 11110000 00000000 S' ( 95904) 
{ 
{ 





0 Lay MeV 
ni U Bl ) 
1 N ) N=1! 
11101111 00000001 ( 61185) 


4.4.3. 6502-Komplement-Addition 


Wir können nunmehr die 6502-Subtraktion 
SEC SBC als SEC ACC („Add Comple- 
ment with Carry") begreifen: 
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1. Durch SEC wird der Vor-Übertrag auf 1 
gesetzt, 


2. Wir laden den Akkumulator A mit dem 
Subtrahenden, „EORen“ ihn zum Einer- 
komplement und zählen die Speicherstelle 
M (= Memory) hinzu. Da durch SEC das 
Carry-Flag auf 1 gesetzt wird, entspricht 
der SBC-Befehl praktisch einer Zweier- 
komplement-Addition. 


3. Wenn nach der SBC- bzw. „ACC“- 
Operation das Carry-Bit bzw. der Nach- 
Übertrag 1 ist, wurde die Subtraktion ohne 
negativen Überlauf ausgeführt. 


Formelmäßig lassen sich die drei Schritte 
so zusammenfassen: 

A=-A'+M+ 1oder 

A=-A"+M 


Der Befehl 

EOR #% 11111111 

invertiert das Bit-Muster von A und er- 
zeugt damit ein Einerkomplement, z.B.: 


10101110 Bit-Muster 
11111111 EOR-Maske 
01010001 Einerkomplement 


Die 6502-Subtraktion 
SEC 

LDA MINUEND 

SBC SUBTRAHEND 
BCO-FEHILER 

BCS ENDE 

läßt sich folglich so simulieren: 
SEC 

LDA SUBTRAHEND 
EOR #% 11111111 
ADC MINUEND 
BC FEHLER 

BCS ENDE 


Man könnte also auf den Subtraktionsbe- 
fehl völlig verzichten. Das nachfolgende 
Demo, das auf der Peeker-Sammeldisk 
unter dem Namen KOMPLEMENT.DEMO 
enthalten ist, veranschaulicht dies: 


10 PRINT CHR$(4)"BLOAD KOMPLE- 
MENT“ 

20 INPUT “Minuend:“;M: POKE 768,M 

30 INPUT “Subtrahend: ";S: POKE 769,5 

40 CALL 770 

50 PRINT M;"-";5;"= 

60 PRINT : GOTO 20 


EMS 


Gibt man nach 

RUN KOMPLEMENT.DEMO 

2 und 1 für Subtrahend und Minuend ein, 
so wird 

DV 

ES 

angezeigt. Gibt man jedoch z.B. 1 und 2 
ein, so wird 

-FF=-FF 

1-2=-1 
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angezeigt. Dabei steht -FF für die interne, 


d.h, (noch) nicht komplemenitierte -1. 


1 ORG $0300 
2 %* 

3 x* KOMPLEMENT 

A 

5 %* 

6 MINUEND HEX 60 

7 SUBTRAH HEX 30 

8 x 

9 COUT EQU $FDED 
10 CROUT EQU $FDSE 
ll PRBYTE EQU S$FDDA 


l2 & Normale Subtraktion 
13 NORMAL SEC 


14 LDA MINUEND 
15 SBC SUBTRAH 
16 PHA 

1% BCS NORMAL]1 
18 LDA ton 

19 JSR COUT 

20 NORMAL1l PLA 

21 JSR PRBYTE 
22 LDA 4#r=t 

23 JSR COUT 


24 %* Zweierkomplement-Addition 
25 KOMPLEM CLC 


26 LDA SUBTRAH 
at EOR #%#11111111 
28 ADC #1 

29 ADG MINUEND 
So PHA 

Sl BCS KOMPLEMI 
32 EDA EN 

35 JSR COUT 

34 KOMPLEM]l PLA 

35 JSR PRBYTE 
36 JMP CROUT 


"Apple u 
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48 K. 6502 ohne Firmware 


Komp 64 
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6 Manate 
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Apple DOS 3.3 


DU 
393,- Klaus Jeschke | 


Der Vollständigkeit halber sei abschlie- 
Bend erwähnt, daß die 6502-Subtraktion in 
verschiedenen Büchern durch die Formel 
A-A-M-(1-C) 

erklärt und in diesem Zusammenhang C 
als komplementiertes Borgen interpretiert 
wird. Wenn © = 1 ist, ist (1 -1)=0, und © 
wird nicht zum Subtrahenden hinzuge- 
zählt. Wenn C = OD ist, ist (1-0) = 1,undC 
wird zum Subtrahenden hinzugezählt. 
Dies hat indes mit der Papier- und Bleistift- 
Methode wenig gemein. 
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ne/McGraw-Hill-Verlag, Berkeley 1982. 
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tion, Multiplikation und Division, allerdings 
ohne nähere Erläuterungen.) 
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Erhöhung der 
Speicherkapazität um über 30% 





von Harald Grumser 


Das meistbenutzte Betriebssystem des 
Apple Il, DOS 3.3, dürfte den Höhepunkt 
seines Erfolgs bereits weit hinter sich ge- 
lassen haben. Dennoch wird es trotz der 
massiven Einführung von ProDOS durch 
die Firma Apple in absehbarer Zeit nicht 
zum blassen Eintrag in den Annalen der 
Computer-Geschichte verkommen. 

Einer der gravierendsten Nachteile in der 
Verbindung Applesoft und DOS 3.3 ist die 
mangelnde Unterstützung der Speicher- 
Kapazität, so daß ein 128K-Rechner (Ap- 
ple Ile mit erweiterter 80-Zeichenkarte 
oder !lc) zur „virtuellen“ 48K-Maschine 
verkommt, wenn nicht durch extensiven 
Einsatz von zusätzlicher Software (MMU, 
RAM-Disk etc.) ein Teil der Kapazität frei- 
gelegt wird. Eine Möglichkeit, die 16K der 
Language-Card, die ansonsten für das 
heute nur noch wenig gebräuchliche Inte- 
ger-BASIC genutzt wird, zu gewinnen, 
zeigt dieser Beitrag. 
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1. Die Theorie des Movens 


Das Betriebssystem wird beim Booten in 
den oberen Bereich des verfügbaren 
Speicherplatzes geladen und schmälert 
den für den Anwender freien Speicher um 
über 10K. Bei der Erhöhung der DOS- 
Puffer (MAXFILES) wird der nutzbare 
Adreßbereich weiter vermindert. Da auf 
der anderen Seite die LC in den meisten 
Fällen ungenutzt bleibt, liegt nahe, das 
Betriebssystem einschließlich der Puffer in 
diese 16K zu verlagern. Die Unterteilung 
der unteren 4K der LC in 2 Bänke bereitet 
in diesem Zusammenhang keine Schwie- 
rigkeiten, da 12K ohnehin für das Be- 
triebssystem und weitere 5 Ein/Ausgabe- 
puffer ausreichen und somit eine Bank für 
weitere Anwendungen freibleibt. 

Diese Übertragung kann sich jedoch nicht 
auf eine reine Verschiebung des Betriebs- 
systems in einen anderen Speicherbe- 
reich beschränken. 


1.1. Der Relokator 


Fast alle größeren Maschinenprogramme 
sind nicht an jeder Speicherstelle lauffähig 
(relokativ), da zum einen Unterprogramm- 
sprünge auf feste Adressen verweisen 
und zum anderen Datenbereiche und in- 
terne Variablen absolut adressiert werden. 
Wird ein solches Programm einfach ver- 
schoben (z.B. durch BRUN FID, A$3000), 
so verzweigt der Prozessor beim ersten 
Unterprogrammaufruf nach einer Stelle, 
die zufällige Werte enthält. 

Nun ist es möglich, durch ein Programm 
alle absoluten Adressen an die neue Lage 
des Programms anzupassen. Wird also 
das Programm um $1000 Bytes nach oben 
geschoben, muß zu allen absoluten 
Adressen, die eine Adresse innerhalb des 
Programms ansprechen, $1000 addiert 
werden (aus JSR $1234 wird JSR $2234). 
Hierzu muß das gesamte Programm quasi 
disassembliert werden, was eine Monitor- 
Routine erledigt, und alle in Frage kom- 
menden Befehle (beim 6502 nur 3-Byte- 
Befehle) korrigiert werden. 

Bei dieser Umsetzung tritt das Problem 
auf, daß Datenbereiche als Programm in- 
terpretiert würden und völlig unerwünsch- 
te Umwandlungen zustande kämen. Aus 
diesem Grund muß dem Relokator eine 
Tabelle der Datenbereiche zur Verfügung 
stehen, damit diese Abschnitte unangeta- 
stet bleiben. 

Ein weiteres Problem bei der Übertragung 
stellen Adreßtabellen innerhalb des Pro- 
gramms dar. Häufig wird über einen Index 
aus einer Tabelle die Adresse ermittelt, an 
der das Programm fortfahren soll (ent- 
spricht etwa ON I GOTO... in Applesoft). 
Auch diese Tabellen müssen dem Reloka- 
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tor bekannt sein, um sie entsprechend 
anzupassen. 

Das bisher Gesagte trifft uneingeschränkt 
auf jeden „ausgewachsenen“ Relokator 
zu. Der hier eingebaute Relokator berück- 
sichtigt jedoch auch noch einige andere 
Besonderheiten (s.u.). 


1.2. Global-Page, Page 3 und 
Parameterübergabe 


Da DOS häufigen Gebrauch von ROM- 
Routinen macht und andererseits die Mo- 
nitor-Routinen DOS aufrufen, muß jeweils 
vorher eine Umschaltung zwischen RAM 
(= LC) und ROM stattfinden. Diese Um- 
schaltung kann (abgesehen von exoti- 
schen Konstruktionen) nur im ungebank- 
ten Bereich erfolgen. Zu diesem Zweck 
bedient sich das gemovte DOS einer sog. 
Global-Page (wie auch ProDOS), über die 
alle Umschaltungen abgewickelt werden. 
Aus der Sicht des Betriebssystems berei- 
tet dies keine Schwierigkeiten, da alle 
Sprünge zu ROM-Routinen von DOS aus 
vom Relokator auf die Global-Page umge- 
leitet werden können, wo zunächst das 
ROM aktiviert wird, die entsprechende 
Routine ausgeführt und vor dem Rück- 
sprung wieder das RAM selektiert wird. 
Um den umgekehrten Aufruf der DOS- 
Routinen zu erläutern, muß etwas weiter 
ausgeholt werden: DOS schaltet sich nur 
bei der Ein- oder Ausgabe in das Gesche- 
hen ein. So überwacht das Betriebssy- 
stem jedes eingegebene Zeichen und 
überprüft bei jedem Return, ob die Einga- 
bezeile einen DOS-Befehl enthält, um ihn 
gegebenenfalls auszuführen und eine lee- 
re Eingabezeile an das aufrufende Pro- 
gramm zurückzugeben. Bei der Ausgabe 
werden alle Zeichen im Eingabepuffer ge- 
sammelt und ebenfalls nach einem Return 
überprüft, ob die ausgegebene Zelle ei- 
nem DOS-Befehl (angeführt von Gtri-D) 
entspricht. Da diese Ein/Ausgabefunktio- 
nen über einen Vektor aufgerufen werden, 
richtet DOS beim Kaltstart diese Pro- 
grammzeiger auf seine eigenen Ein/Aus- 
gaberoutinen. Der DOÖS-Mover lenkt diese 
Vektoren nun auf die Global-Page um, wo 
wie oben die Umschaltungen stattfinden 
(in umgekehrter Reihenfolge). 


Es gibt jedoch auch noch einen anderen 
Bereich, auf den das DOS zugreift: die 
Page 3. Diese Speicherstellen dienen als 
Schnittstelle zwischen dem DOS und ei- 
nem Anwenderprogramm. 

Bei der Erstellung des Betriebssystems 
hielt sich die Firma Apple die Möglichkeit 
offen, eine neue, völlig geänderte Version 
auf den Markt zu bringen und veröffent- 
lichte daher, im Gegensatz zum Monitor- 
ROM, keine internen Einsprungstellen. Je- 





des „seriöse“ Programm durfte daher nur 
über die Page 3 Zugriff auf DOS nehmen. 
Dieser Umstand ist die wichtigste Voraus- 
setzung für die Kompatibilität des DOS- 
Movers, da ausschließlich die Integrität 
dieser Page 3 sichergestellt werden muß. 
(Läuft ein Anwenderprogramm nicht mehr 
unter gemovtem DOS, ist es nicht „se- 
rlös“.) 

Der DOS-Mover stellt nun eine neue Ver- 
bindung zwischen Page 3 und DOS her 
und bedient sich dabei der Global-Page 
zur RAM/ROM-Umschaltung (siehe hierzu 
Page 3 unter DOS 3.3). 


In Verbindung mit der Page 3 stellt sich ein 
anderes Problem. Beim Aufruf der RWTS 
oder des File-Managers müssen Parame- 
ter (Input/Output-Block oder File-Mana- 
ger-Parameter-Liste) übergeben werden. 
Die Adresse dieser zwei Parameter-Blök- 
ke liegt normalerweise innerhalb des DOS 
und kann über eine der Page-3-Routinen 
abgefragt werden. Da ein Anwenderpro- 
gramm jedoch keine Softswitches betätigt, 
um diese Blöcke, die jetzt in der LC liegen 
würden, zu lesen bzw. schreiben, müssen 
diese ebenfalls in einen ungebankten Be- 
reich verlegt werden, Es liegt nahe, auch 
diese Bereiche in die Global-Page aufzu- 
nehmen und durch den Relokator alle Ver- 
weise auf diese Parameter durch die ent- 
sprechenden Adressen der Global-Page 
zu ersetzten. 


1.3. Gepatchtes DOS 


Nachdem die bisherigen Änderungen eher 
globaler Natur waren und mehr oder weni- 
ger „automatisch“ ablaufen können, muß 
auch noch im Detail Hand angelegt wer- 
den, um das gemovie DOS an seinen 
neuen Standpunkt anzupassen, Diese ein- 
zelnen Patches werden vor dem Übertra- 
gen in die LC anhand einer Patch-Tabelle 
durchgeführt. Dabei mußten im einzelnen 
folgende Besonderheiten berücksichtigt 
werden: 


FP/IINT — Die Befehle zur Umschaltung 
der Sprache verlieren bei in die LC ge- 
movtem DOS ihre Bedeutung. Aus die- 
sem Grund wird Integer-BASIC nicht mehr 
unterstützt. (Dieser DOS-Mover ist somit 
für Geräte mit Integer-BASIC im ROM 
nicht geeignet.) DOS erkennt die aktuelle 
Sprache an einem Erkennung-Byte bei 
$E000. Integer-BASIC enthält dort $20, 
während Applesoft-BASIC durch $4C er- 
kannt wird. 

Da während des Prüfens dieser Speicher- 
stelle im gemovten DOS die LC aktiv ist, 
muß jeder Zugriff auf $E000 durch eine 
Adresse ersetzt werden, die $40 enthält. 
Diese Änderung wird vom Relokator vor- 
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Speicherverteilung des gemovten DOS 3.3 


genommen, der $E000 mit einer Global- 
Page-Adresse überschreibt. 

Beim Test der aktuellen Sprache schaltet 
DOS zwischen RAM und ROM um. Dieser 
Teil muß lahmgelegt werden, da anson- 
sten das Bankswitching-Prinzip zum erlie- 
gen käme. Der Versuch, auf Integer-BA- 
SIC umzuschalten, endet somit in jedem 
Fall mit der Meldung „LANGUAGE NOT 
AVAILABLE“, 


MAXFILES — Die DOS-Puffer residieren 
nun auch in der LG, wobei aus Platzgrün- 
den jedoch nur noch 5 Puffer bereitgestellt 
werden können (siehe Speichervertei- 
lung unter gemovtem DOS). 

Zunächst muß die Änfangsadresse des er- 
sten Puffers in die LC verlegt werden, das 
heißt in diesem Fall, daß nicht mehr die 
Anfangsadresse des DOS (normalerweise 
$9D00) zum Aufbau der sog. DOS-Puffer- 
Kette benutzt werden darf, sondern eine 
feste Adresse im LC-Bereich. 


Der MAXFILES-Befehl muß dahingehend 
geändert werden, daß ab 6 Puffern die 
Meldung „OUT OF RANGE" erscheint 
(normalerweise 16 Puffer). Ansonsten 
würde das DOS durch die Puffer über- 
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schrieben werden (die Puffer liegen jetzt 
überhalb des DOS). 

Wenn alle Puffer von oben nach unten 
initialisiert wurden, entspricht der Anfang 
des letzten (untersten) Puffers dem HI- 
MEM-Wert, Hier würde HIMEM nun auf 
eine Adresse innerhalb des LC-Bereichs 
deuten. Aus diesem Grund wird stets der 
Anfang der Global-Page ($BFO0) als Sy- 
stem-Obergrenze eingesetzt. 


INIT — Der normale INIT-Befehl besteht im 
wesentlichen aus vier Teilen: Zunächst 
wird via RWTS die Diskette formatiert. Da- 
nach muß die Catalog-Spur angelegt wer- 
den, die auch die VTOC enthält. Im An- 
schluß daran wird das im Speicher befind- 
liche DOS auf die ersten drei Disketten- 
spuren übertragen. (Tatsächlich wird das 
DOS in zwei Blöcken in verdrehter Rei- 
henfolge abgelegt, da die Boot-Routine im 
ersten Sektor zu liegen kommen muß, je- 
doch im Speicher im hinteren Teil unter 
der RWTS steht.) Als letztes wird das im 
Speicher befindliche Programm unter dem 
angegebenen Namen durch einen simu- 
lierten SAVE-Befehl auf die Diskette ge- 
schrieben. 


dos 3,3 


Aus verständlichen Gründen ist das ge- 
movte DOS nicht mehr zum Booten geeig- 
net. Daher endet die gepatchte INIT-Routi- 
ne nach dem zweiten Schritt. Da die Dis- 
kette nun aber kein DOS enthält, wird sie 
als Datendiskette angelegt, d.h. die Spu- 
ren 1 und 2 werden ebenfalls freigegeben, 
wodurch man weitere 8K an Kapazität ge- 
winnt. 

Die Angabe eines Namens beim INIT-Be- 
fehl ist im gemovten DOS hinfällig und 
verursacht eine Fehlermeldung. 





ResetVNMI/IRQ — Da im Moment eines 
NMI- oder IRQ-Signals die LC aktiv sein 
Kann, müssen die entsprechenden Vekto- 
ren, die sich hardware-mäßig nur am Ende 
des gesamten Adreßbereichs befinden 
können ($FFFA-$FFFF), in der LC gesetzt 
sein, d.h. in diesem Fall auf eine Routine in 
der Global-Page weisen, die die LC ab- 
schaltet und die normalen Interrupt-Routi- 
nen aufruft. Obwohl die LC nach einem 
Reset-Signal normalerweise deaktiviert 
ist, wurde auch der Reset-Vektor in die- 
sem Sinne belegt, da Karten existieren, 
die nicht durch Reset abzustellen sind. 
Wenn man nun z.B. die verschlungenen 
Pfade einer Reset-Behandlung verfolgt, 
wird klar, wieviele Komponenten einen 
Rechner zum Abstürzen bringen können. 
Nach einem Reset-Signal durchläuft der 
Prozessor folgende Schritte: 

— Die Adresse der Reset-Routine wird 
über den Vektor ab $FFFC ermittelt. 

—- Die Reset-Routine ab $FA62 initialisiert 
den Monitor und setzt die Ein/Ausgabe- 
Vektoren für Tastatur und 40-Z/Z-Bild- 
schirm. 

— Am Ende der Reset-Routine wird nach 
Prüfung des Power-Up-Bytes (gegebe- 
nenfalls Kaltstart}) über den Vektor ab 
$03F2 eine weitere Routine aufgerufen. 

— $03F2 weist auf eine Global-Page-Routi- 
ne, die die LC aktiviert und zum eigentli- 
chen DOS-Warmstart verzweigt. 

— Die Warmstart-Routine setzt u.a. die Ein/ 
Ausgabe-Vektoren auf die entsprechen- 
den DOS-Routinen und springt zurück in 
die Global-Page. 

— Die aufgerufene Global-Page-Routine 
schaltet das ROM an und führt einen Ap- 
plesoft-Warmstart aus. 

Die darauffolgende Eingabe (und gleich- 
zeitige Ausgabe) eines Befehls läuft nach 
einem nicht minder undurchsichtigen Sy- 
stem ab. 


Ein springender Punkt bei der Installierung 
ist der Übergang vom normalen DOS zum 
gemovten DOS. Nachdem alle Anpassun- 
gen im normalen DOS durchgeführt wur- 
den, wird es in die LC geschoben. Außer- 
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dem müssen die Interrupt-Vektoren initia- 
lisiert werden. Danach erfolgt die Übertra- 
gung der Global-Page und der neuen 
Page 3. Da ein Anwenderprogramm Werte 
aus dem RWTS-Input/Output-Block lesen 
kann, muß der aktuelle IOB ebenfalls in die 
Global-Page übertragen werden. 

Danach wäre am einfachsten, einen DOS- 
Kaltstart durchzuführen. Diese Vorge- 
hensweise würde jedoch dazu führen, daß 
der DOS-Mover nicht aus einem Ap- 
plesoft-Programm gestartet werden kann, 
da ein DOS-Kaltstart im Anschluß einen 
Applesoft-Kaltstart durchführt. Daher wer- 
den die zur System-Initialisierung benötig- 
ten Routinen, die sich in diesem Stadium 
auf das Setzen der Ein/Ausgabe-Vektoren 
und den Neuaufbau der Puffer-Kette be- 
schränken, einzeln aufgerufen bzw. selbst 
durchgeführt. 

Zuletzt muß nur noch die Eingabezeile 
gelöscht werden (d.h. Zeilenlänge Null 
und Return als erstes Zeichen), da der 
DOS-Befehl „BRUN DOSMOVER“ sonst 
vom Anwenderprogramm nochmals inter- 
pretiert würde, was im Applesoft-Direkt- 
modus die Meldung „SYNTAX ERROR” 
zur Folge hätte. 


2. Arbeiten mit gemovtem DOS 


Bei aller Theorie soll noch einmal die 
Handhabung des DOS-Movers von der 
praktischen Seite beleuchtet werden, da 
vielleicht nicht jeder die oben beschriebe- 
nen Punkte in vollem Umfang verstanden 
hat. Die Änderungen gegenüber dem 
A8K-DOS lassen sich durch die folgenden 
Punkte beschreiben: 


@ Der hier vorgestellte DOS-Mover arbei- 
tet nur auf Rechnern mit 48K plus LC, mit 
FP-BASIC im ROM. 

@ Der DOS-Mover muß stets durch BRUN 
DOSMOVER gestartet werden, nachdem 
standardmäßiges DOS 3.3 gebootet 
wurde. 

@ Treffen diese Voraussetzungen nicht zu 
oder ist das DOS bereits gemovt, ertönt 
ein Klingelzeichen und das DOS bleibt 
unberührt. (Der DOS-Mover kann also 
auch im gemovten DOS ohne Konsequen- 
zen nochmals aufgerufen werden, um si- 
cherzustellen, daß in jedem Fall 64K-DOS 
vorliegt.) 

@ Der komplette Move-Vorgang dauert et- 
wa eine Sekunde und darf auf keinen Fall 


ändert wird. Siehe hierzu DOSMOVER- 
„START. 

® Der Aufruf des DOS-Movers kann auch 
durch einen EXEC-File erfolgen, der je- 
doch keine weiteren DOS-Befehle enthal- 
ten sollte. 

@ Wird der DOS-Mover im laufenden Pro- 
gramm gestartet, sollten keine Textdateien 
geöffnet sein, da deren Inhalt vor dem 
Sichern auf Diskette durch String-Varia- 
blen überschrieben werden Könnte. 

® Der MAXFILES-Befehl läßt nur noch 
maximal 5 DOS-Puffer zu und meldet an- 
sonsten „OUT OF RANGE“. 

® Der INIT-Befehl erlaubt keine Angabe 
eines Dateinamens mehr und formatiert 
die Diskette als Datendiskette ohne DOS. 
® Der INT-Befehl gibt in jedem Fall die 
Meldung „LANGUAGE NOT AVAILABLE 
aus. Auch darf keineswegs versucht wer- 
den, Integer-BÄASIC durch BLOAD INTBA- 
SIC zu laden, da dadurch das DOS in der 
LC überschrieben würde. 


Obwohl der DOS-Mover alle Regeln der 
Kompatibilität befolgt, läuft weder FID 
noch RENUMBER unter gemovtem DOS. 
In diesem Sinne sollte nur dann von dieser 
Möglichkeit der „Speichererweiterung” 
Gebrauch gemacht werden, wenn dies tat- 
sächlich benötigt wird oder Vorteile bringt, 
wie z.B. bei COPYA, das das erweiterte 
Speicherangebot ausnutzt und somit eine 
Diskette in weniger Schüben kopiert. 
COPYA muß jedoch folgendermaßen ge- 
ändert werden, da der normale INIT-Be- 
fehl benutzt wird: 


250 PRINT CHR$(4)"INIT,S";SS; 
B2:5D %2PEER (Z14, EI 1 

Es spricht grundsätzlich nichts dagegen, 
den DOS-Mover auch für geänderte DOS- 
Versionen zu nutzen, die nur gepatcht und 
nicht neu assembliert wurden. Eine Über- 
prüfung der Lauffähigkeit sei dem Leser 
überlassen, mit der Bitte, die entsprechen- 
den Erfolge und Fehlschläge mitzuteilen. 


Ein letztes Wort für die Leser, die vielleicht 
enttäuscht sind über die etwas kurzen Er- 
läuterungen zum Programmablauf: Das 
genaue Verständnis aller Programmteile, 
insbesondere der einzelnen Patches, er- 
fordert detaillierte Kenntnisse der DOS- 
Interna, die in einem einzigen Artikel nicht 
vermittelt werden können. Daher bleibt nur 
der tröstliche Hinweis auf die reichlichen 
Kommentare im Listing. 


Kurzhinweise 


1. Zweck: 

Verschieben von DOS 3.3 in die LC zur 
Erweiterung des verfügbaren Speicher- 
platzes. 

2. Konfiguration: 

Apple II+ (mit LC und FP-BASIC im 
ROM), Ile oder IIc; 

BO>3>3. 

3. Test: 

RUN DOSMOVER.START 

4. Sammeldisk: 

DOSMOVER.START 
(Applesoft-HELLO-Programm) 
T.DOSMOVER 

(Big-Mac-Quelltext) 

DOSMOVER 

(Maschinenprogramm) 


Speicheraufteilung unter gemovtem DOS (LC, Bank 2) 


normal gemovtes DOS 


$9608 $BFog 
$BFAG-SBFCA: 
SBFCB-S$BFEB: 
$BFELI-$BFFI: 
$BFF2-$BFFF: 


$B5BB 
$5B7E8S 
frei 


$9DAP 
$YEBG 
$IFBO 
$ADBB 


> $DB98 
$D199 
$D298 
$D3B® 


$BDOB -> $FORG 
$BEOR —> $FLB9 
$BFOB -> $F209 


: HIMEM (ergibt 19488 Bytes zusätzlich) 
Global-Page-Vektoren 
File-Manager-Parameter-Liste 
RWTS-Input/Output-Block 


gemovtes DOS 


SF306-$F552: 5. Puffer 

$F553-$F7A5: 4. Puffer 
Ssy6ßd -> $FT7AS-$FYFS: 3. Puffer 
$9853 -> $FYFY-$FCAB: 2. Puffer 
$9AAS -> $FCAC-$FESE: 1, Puffer 

SFESF-SFFFS: frei 
$FFFA -> $FFFA-SFFFB: NMI-Vektor 
SFFFC -> $PFFFC-S$FFFD: Reset-Vektor 
SFFFE -> $FFFE-S$FFFF: IRQ-Vektor 


durch Reset abgebrochen werden, da an- 
sonsten das teilmodifizierte Betriebssy- 
stem den Rechner abstürzen ließe. 

® Der Aufruf des DOS-Movers sollte im 
Direktmodus oder am Anfang des Pro- 
gramms vor der ersten Zuweisung von 
String-Variablen erfolgen, da HIMEM ge- 
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DAS 


APPLE Il 
PHANDBEBUCH 


Die rasche Orientierung für APPLE 


Iiplus, IIe, IIc 


Schnelle Antwort auf Alltagsfragen am APPLE II - 
leicht nachzuschlagen, praxisbezogen, für Ilplus, Ile, IIc 
in nur 1 Buch! 

Unterschiede Ilplus/lle, DOS 3.3/ProDOS, E/A-Inter- 
facekarten/Ports, 40/80 Zeichendarstellung, US/DTS- 


Tastatur, 48K/128K Systeme etc. 
Grafik/Soundmöglichkeiten, eine der APPLE-Stär- 
ken, in stark erweiterter Beschreibung. 
rg Kurzführer „Steckkartenerweiterungen“ mit Fotos; 
FOTLEOORZAEKIRICHEOMEIRB:DINONILCON „„Sofortbetrieb von Disketten/Cassettengeräten“‘; 
„Druckerbetrieb“; „Direktbefehle“; „Tastaturbedienung“etc. 


Backgroundwissen: BASIC für Beginner/Professionelle; MC/BASIC-Kombination; MC- 
Entwicklung mit MONITOR/MINIASSEMBLER; APPLE-PASCAL-BS; 


Disketten/Plattenspeicherung; Dateiformate etc. 


Ausführlicher Anhang zu Editor, Speicherbelegung, Codes des 


APPLESOFT-Interpreters etc. 


DAS APPLE I HANDBUCH für 
Ilplus, Ile, IIc, 472 Seiten, 
Softcover, DM 66,- 


te-wi Verlag GmbH 


5 
Theo-Prosel-Weg 1 eaıl 
8000 München 40 


_ Weiterführende Literatur... 


Ner; 


Reparaturanleitung Computer: 
Apple I, Hplus 


Einzigartige Serviceunterläge für Reparatu- 


ren und Entwicklungsarbeiten am Apple Il. 
Enthält Schaltpläne, Bauteile- und Ver- 
gleichstypenliste; Prüfpunkte mit Oszillo- 


grammen der Signalformen, Logiktabellen, | 


Spannungsangaben; schnelle Servicetests; 
Anleitung zur systematischen Fehlersuche, 
In A4-Mappe, DM 29,80 


APPLE Il - Bewegte 3D-Graphik 
(Phil Cohen) 
Selbstentworfene Graphiken und Dia- 
gramme - animiert oder als Standbilder - 
eben oder räumlich: alle erforderlichen 
BASIC-Programme mit Erklärung finden 
Sie in diesem Buch 
200 Seiten, Softcover, DM 49,- 
"WORKS NEU 
APPLE WORKS + APPLE Il, Ile, IIc = 
Elektronischer Schreibtischmanager 
Dieses Programmsystem vereinigt die 
Funktion Texterstellung, Datenarchivie- 
rung, Formblattkalkulation, Datenfern- 
übertragung. Das System mit den höch- 
sten Verkaufsziffern. Sämtliche System/ 
Ro Ei Anwendungsfragen in 2 Bänden. Bei- 
a Lahn spiele aus der Wirtschaft u. v.m. 


rt je 264 Seiten, je DM 49, - 


tm 4439 


Jeder kann programmieren 


Buch des Jahres in den USA. Für die 
Computer APPLE II, C-64, IBM PC, 
ATARI bis 520 ST, TI-99 und Schneider 
CPCs. 

Hochwertiges Textbuch für Logo-Kurse 
für zu Hause und im Lehrbereich. 


) 384 Seiten, A4, DM 59,- 


Apple Maschinensprache 

Für BASIC-Programmierer der einfachste 
Zugang zur Muttersprache des Apple. Wesent- 
lich schnellere Maschinenprogramme, direkte 
Manipulation des Mikroprozessors 6502 im 


m | Apple — als Brücke dorthin benötigt dieses 


Buch nur die drei BASIC-Befehle, PÖKE, 


SANUS CALL. PEEK. D. Inman/K. Inman. DM 49, — 


Erstes deutsches Referenzwerk sämt:- 
licher Befehle und Systemroutinen von 
Apple II, IIplus, Ile 

APPLE II PASCAL Ver, 
Betriebssystem, 272 S., DM 49,- 

Sprache, 216 S., DM 39, - 

Pascal 1.2 Addendum, 112 S., DM 36,- 


Grundlagenbuch, Bestseller 
APPLE II PASCAL, 

Eine praktische Anleitung, 
544 5. DM 59, - 


Noch im Programm: In Vorbereitung: 

6502 - Programmieren in Assembler DM 59,- Macintosh Programmier-Handbuch 
VisiCalc, 50 Programme auf Diskette, DM 79,- mit Microsoft BASIC 2.0 DM 59,- 
Computer für Kinder, APPLE II, DM 29,80 








Page 3 unter DOS 3.3 


(nur die von DOS belegten Adressen) 


normales DOS 


BSDß- AC BF 
P3D3- AC 84 
B3D6- AC FD 
B3D9- AC B5 
A3DC- AD BF 
Ö3DF- AC BE 
A3E2—- 60 

P3E3- AD C2 
B3E6- cl 
Ö3E9- 6B 

Ö3EA- AC 51 


JMP $9DBF 
JMP $90D84 
JMP $AAFD 
JMP $B7B5 
LDA $9DÖF 
LDY $9DÖE 
RTS 

LDA $AAC2 
LDY $AAC1 
RTS 

JMP $A851 


DOS-Warnmstart 
DOS-Kaltstart 
File-Manager-Aufruf 
RWTS-Aufruf 
Bestimmung der 
Adresse des 
Input/Output-Blocks 
Bestimmung der 
Adresse der 
File-Manager-Parameter-Liste 
DOS-Vektoren anhängen 


gemovtes DOS 


A3D$- AC 34 BF 
A3D3- AC 2E BF 
B3D6- AC 12 BF 
Ö3D9- AC 1B BF 
@3DC- AY9 BF 
A3DE- AB CB 
D5ES- 68 

Ö3El- EA 

Ö3E2- EA 

Ö3E3—- A9 

Ö3E5- Ad 

A3E7- 69 

B3E8- EA 

B3E9- EA 

B3EA- AC 


DOS--Warmstart 
DOS-Kaltstart 
File-Manager-Aufruf 
RWTS-Aufruf 
Bestimmung der 
Adresse des 
Input/Output-Blocks 


Bestimmung der 
Adresse der 
File-Manager-Parameter-Liste 


DOS-Vektoren anhängen 


DOSMOVER.START 


1® HOME : PRINT TAB{ 9)"DOS-Mover": PRINT 

28 PRINT "48K-DOS: " FRE (Bd) + 16 T 4" Bytes frei" 
3% PRINT : PRINT "DOS verschieben? {J/N) "; 

ad GET A$: PRINT A$: IF A$ < > "J'" THEN END 

50 PRINT CHR$ (4)"BRUN DOSMOVER": PRINT 

69 PRINT "64K-DOS: " FRE (8) + 16 f 4" Bytes frei" 


BSAVE DOSMOVER, A$8009, L50359 


DOSMOVER BEQ RELOC , Warmstart ohne Move 
JSR BELL1 ‚zur Warnung! 


JMP DOSWARM 


ERROR 


Ko 


= Relokator “ 


DOS-Mover 


Harald Grumser, 1985 


RELOC LDA #<$9D84 :Startadresse 
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ovoJonmn one 


LENGTH 
CSW 

KSW 

rt 

IND 
OPRND 
FRETOP 
MEMSIZE 


IN 
DOSWARM 
NMI 


ROMSEL 
RAMSEL 


INSDS2 
PCADJ 
IRQ 
RESET 
BELLI1 


ORG 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 
EQU 
EQU 


EQU 
EQU 


EQU 
EQU 
EQU 
EQU 
EQU 


$8000 


$S2F 
$36 
538 
$3A 
$3C 
IND 
$6F 
$73 


3288 
$3DB 
$3FB 


ScH8l 
509853 


$F8SC 
$F953 
$FAAB 
$FAS2 
$FBDD 


* ROM-Referenzen des DOS 


RESTART 
LINKSET 
SETPTRS 
NERSTT 
ERRENT 
BASCOLD 
RDKEY 
GOUT 
INPORT 
OUTPORT 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


$DA3C 
$DAF2 
$D665 
$D7D2 
$D865 
$EBBd 
$SFDISC 
$FDED 
SFESB 
$FE9S 


$AAB6 
#540 
ERROR 


#<$AlT7C 
ERROR 


#>5A1T7C 


;OP-Code-Länge - 1 
‚Ausgabeadresse 
‚Eingabeadresse 
‚Programmzähler 
;Hilfsregister 
;Operand 
;BASIC-String-Ende 
;= HIMEM 


‚Eingabepuffer 
;‚DOS-Warmstart 
‚Sprung zur NMI-Routine 


;ROM lesen (Bank 2) 
;RAM lesen (Bank 2) 


:OP-Code auswerten 
;PC um LENGHT eröhen 
‚Monitor-IRQ 
;Monitor-Reset 
;Klingelzeichen 


(Auszug) 


;BASIC-Warnstart 

;Linkbytes neu setzen 

;:CLEAR durchführen 

‚nächsten Befehl ausführen 
;‚BEinsprung für Fehlermeldung 
;BASIC-Kaltstart 

‚Zeichen lesen 

‚Zeichen ausgeben 
‚Eingabe-Vektor setzen 
‚Ausgabe-Vektor setzen 


Start . 


‚BASIC-Flag 

;FP-BASIC? 

‚nein, dann DOS belassen 
:DOS-Mover muß durch BRUN 
‚ gestartet werden und er- 
‚ kennt daran, ob es sich 
; um 48K-DOS handelt 
‚ansonsten erfolgt ein 





LDY 
STA 
STY 


* Prüfen, ob 


DATA 
DATAL 


LDX 
DEX 
BMI 
LDA 
DEX 
CMP 
BNE 
LDA 
CMP 
BNE 
LDA 
STA 
LDA 
STA 
NODATA LDX 
JSR 
LDY 
LDA 
89 STA 
99 DEY 
91 LDA 
92 STA 
93 DEY 
94 LDA 
95 CMP 
96 BEQ 
97 CMP 
98 BNE 
99 
188 
181 
182 
163 
184 
185 
186 
197 
188 
189 
119 
111 
112 
113 


* Prüfen, ob 


LDX 
DEX 
BMI 
LDA 
DEX 
CMP 
BNE 
LDA 
CMP 
BNE 
LDA 
PHA 


REFS 
REFS1 


+>$9D84 
PC 
PC+l 


:($9DB%-$9D83 sind Daten) 
; in Programm-Counter 
;‚ eintragen 


PC innerhalb eines Datenbereichs 


#DATTBLEIl- 


NODATA 
DATTELE,X 


PC+1l 
DATAL 
DATTBLE,X 
PC 

DATAIL 


DATTBLE 
;Tabellenende? 
;ja, dann kein Datenbereich 


;High-Byte vergleichen 


;Low-Byte vergleichen 


DATTBLEl,X ;neue PC-Adresse 


PC 


; übernehmen 


DATTBLEI+1,X 


PC+l 


+$09 
INSDS2 
#502 
(PC),Y 
OPRND+1 


(BE).T 
OPRND 


(PC),Y 
#520 
REFS 
+$4C 
NOJMP 


‚Länge & Format bestimmen 


‚Operand, High-Byte 


;‚Operand, Low-Byte 


‚OP-Code 


;JSR? 


;JMP? 


Sprung ins ROM 


#+REFTBLE1l- 


INTLADR 
REFTBLE,X 


OPRND+L1 
REFS1 
REFTBLE,X 
OPRND 
REFS1 


REFTBLE 
;Tabellenende? 
;ja, dann interner Sprung 


‚High-Byte vergleichen 


;Low-Byte vergleichen 


REFTBLEI+1,X 


‚neue Adresse 
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114 
115 
116 
117 
118 
113 
129 
121 
122 
123 
124 
129 
125 
127 
128 
129 
139 
131 
132 
133 
134 
135 
156 
137 
138 
139 
149 
141 
142 
143 
144 
145 
146 
147 
148 
149 
159 
Is! 
192 
153 
154 
155 
156 
157 
158 
159 
16% 
161 
162 
163 
164 
165 
166 
167 
168 
169 
179 
121 
172 
173 
174 
1795 
176 
Ir 
178 
173 
189 
181 
182 
183 
184 
185 
186 
187 
188 
| 189 
198 
131 
19% 
193 
194 
195 
196 
197 
198 
133 
200 
281 
282 
283 
294 
285 


NOJMP 


INTLADR 


LDA 
TAX 
PLA 
JMP 


LDA 
CMP 
BNE 
LDA 
CMP 
BCC 
CMP 
BEQ 
LDX 
BNE 
CMP 
BNE 
LDX 
LDA 
BNE 


REFTBLEl,X 


INTLADRI1 


LERG «FR 
02 
NXTOPG 
OPRND+L 
+>$9DBd 
NXTOFC 
#>$CH08 
NXATOPG 
OPFRND 
NOEBBH 
+>$EBd9 
NOEBSB 
#<FPID 
#>FPID 
INTLADR1 


;‚High-Byte -> Akku 
Low-Byte -> X-Reg. 


‚Adressierungsart bestimmen 

‚{ABS})/ ABS/ ABS,X/ ABS,Y 

‚alle anderen ignorieren 

‚liegt Adresse innerhalb 
des DOS-Bereichs? 

‚nein, dann belassen 


;$Eßdß muß durch 
; FPID ersetz werden 


‚unbedingt 


x Referenzen auf IOB oder FMPL nach Global-Page legen 


NOEBBB CMP _ #+>5B7E8 ;Referenz auf IOB 
BNE NOIOB 
CPX #+<$B7ES8 ‚Low-Byte überprüfen 
BCC NOIOB ; (darunter) 
CPX  #<$B7FB 
BCS NOIOB ; (darüber) 
TA ;Low-Byte 
ADC +NEWIOB-SB7EB 
TAX ;‚, anpassen 
LDA #>NEWIOB ‚neues High-Byte 
BNE INTLADRI ‚ und eintragen 
NOIOB CMP_ #>$B5A9 ‚Referenz auf FMPL 
BNE NOFMPL (erniedrigt wegen Offset) 
CGPX +<$B5A9 ;Low-Byte überprüfen 
BCC  NOFMPL ; (darunter) 
CPX #<$BS5CD 
BCS NOFMPL ; (darüber) 
TXA ;Low-Byte 
ADC #NEWFMPL-$BSBB 
TAX ‚ anpassen 
LDA #>NEWFMPL ;neues High-Byte 
BNE INTLADRI und eintraren 
* Interne Referenzen anpassen und eintragen 
NOFMPL CLC 
ADC #$D9-$SD :Verschiebe-Offset 
INTLADR1 LDY +$82 
SEA (re ‚neuer Operand, High-Byte 
TXA 
DEY 
STAA KECN,.T ;neuer Operand, Low-Byte 
NXTOPC JeR PCADJ ‚PC = 
STA PC ; PC + LENGTH 
STY PCG+l 
CPY #+>$C900 ;DOS-Ende erreicht? 
BEQ SETADRS ‚ja, dann weiter | 
JMP DATA ‚ansonsten weiter in Schleife 
Tr FT eG * 
* Adreßtabellen anpassen * 
SETADRS CLC 
LDX #35%*2-1 ‚35 Adressen 
CMDIADRS LDA $9D1®,X ; für den 
ADC =#$D9-$9D Gommand-Interpreter 
STA $9D1ß,X berichtigen 
DEX ; (jeweils nur das 
DEX ‚ High-Byte) 
BPL CMDIADRS 
LDX #26x*2-1 ;26 Adressen 
FMADRS LDA $AAC9,X für den 
ADC #$D9-$9D ; File-Manager 
STA $AAC9,X berichtigen 
DEX 
DEX 
BPL FMADRS 
Bm * 
* Patches durchführen % 
LDA #<PTCHTBLE+3 ;Adresse des 
STA IND ‚ ersten Patch-Bytes 
LDA #+»>PTCHTBLE+3 eintragen 
STA IND+Hl 
LDA PTCHTBLE ‚Adresse der 
STA FC ersten Patch-Adresse | 
LDA PTCHTBLE+1 
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eintragen | 


286 
287 
208 
289 
219 
211 
212 
213 
214 
215 
216 
27 
218 
219 
228 
22] 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
235 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
259 
251 
252 
253 
254 
255 
256 
257 
258 
259 
26% 
261 
262 
263 
264 
265 
266 
267 
268 
269 
278 
271 
2TE 
273 
274 
275 
276 
277 
278 
279 
288 
281 
282 
283 
284 
285 
286 
287 
288 
289 
296 
291 
292 
293 
294 
295 
296 
297 











dos 3.3 2 


ScA  FCHL 
LDX PTCHTBLE+2 ;Anzahl der zu 
PATCH TXA ; überschreibenden 
TAY ‚ Bytes 
DEY 
PATCHL LDA (IND),Y ;Patch 
Sa, TPpoy% ; durchführen 
DEY 
BEL PFATCHI 
TXA ‚Patch-Länge = 
TAY Index auf nächste 
LDASSPENEI N ; Patch-Adresse 
STA PC 
INY ‚neue 
LDA (IND),Y ; Patch-Adresse 
BEQ MOVER ;(Tabellenende erreicht) 
STA PC+l 
INY ‚Index auf Länge 
EDA SIND, L ;‚Patch-Länge des 
TAX ‚ nächsten Bereichs 
SEC ; (statt INY) 
TYA ; zu aktuellem Bereich 
ADC IND ‚ addiert ergibt 
STA IND ; neuen Adresse des 
BCC PATCH ‚ ersten Patch-Bytes 
INC IND+l 
BNE PATCH ‚unbedingt 
%---—— 


* DOS verschieben, 


MOVER 


MOVE 


VECMOVE LDA VEKTBLE-L,Y 
STA $FFFA-1,Y ; 


GLEMOVE LDA GLBINMGE,Y 
STA GLOBAL,Y 


BIT 
BIE 
LDA 
STA 
LDA 
STA 
LDY 
er 
Sr 
LDA 
STA 
INY 
BNE 
INC 
ING 
LDA 
CMP 
BNE 


LDY 


DEY 
BNE 


ROMSEL 
ROMSEL 
#>$9DAR 
IND+1 
#>$DP99 
PC+l 

#0 

IND 

PC 
(IND),Y 
ET 


MOVE 
IND+1 
PeHl 
POHL 
+>$F3ßß 
MOVE 


+506 


VECMOVE 


Systenmvektoren setzen, 


DOS-Neustart 


‚ROM lesen 
;RAM schreiben 


;DOS von $9Dd4 
‚ nach $Ddgg 


; verschieben 


‚Die Speicheraufteilung 
sieht dann wie folgt aus: 


; $BFOO Global-Page 
; $cBß0 - I/O-Bereich 
‚ $DdB® - gemovtes DOS 
; $F388 - 5 Puffer 


‚neuen NMI-, Reset- 
und IRQ-Vektor 
in LC ablegen 


‚Gobal-Page-Image 
in letzte RAM- 


* 


INY ; Seite übertragen 

BNE GLBMOYE 

LDY #$1@ 
COPYIOB LDA $B7E8,Y ‚alten IOB 

STA NEWIOB,Y ‚ in neuen IOB 

DEY übertragen 

BPL COPYIOB 

LDA #<NEWOUT ;neue 

STA CSW Ein/Ausgabe- 

LDA #>NEWOUT ; Vektoren 

STA CSW+Hl ; eintragen 

LDA #<NEWIN 

STA KSW 

LDA #>NEWIN 

STA Ks4+l 

BIT RAMSEL ;RAM lesen/schreiben 

LDA +$69 ;RTS nach Page-3-Move 

STA $D141 eintragen und Page-3- 

JSsR. 30125 Image kopieren 

JSR $D1ß6 ;Puffer und HIMEM initialisieren 

LDA #$8D ‚leere Eingabezeile 

SIA IN vortäuschen 

LDX #8 ;(Zeilenlänge von GETLN} 

JMP ENBLEROM ;ENDE 
GLBIMGE EQU x 
#0 
* Global-Page E> 
#-———-—— 2.0.0... * 

ORG $BFP® 
GLOBAL 
NEWIN JSR ENBLERAM ‚neue Eingabe-Intercept- 
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24 


298 
299 
399 
3p1 
382 
393 
5ß4 
395 
3B6 
387 
388 
389 
31® 
311 
312 
313 
314 
315 
316 
317 
318 
319 
328 
321 
322 
323 
324 
325 
326 
327 
328 
329 
339 
331 
332 
333 
534 
335 
336 
357 


339 
349 
341 
342 


346 
347 


349 
35ß 
351 
352 
353 
354 
355 
356 
357 
358 
359 
369 
361 
362 
363 


365 
366 


369 


387 


389 


NEWOUT 


NE#FW 


NEWRWTS 


NEWCNCT 


ENBLEROM 


NERCOLD 


NEWWARN 
FPID 


JSR 
JMP 
JSR 
JMP 





Routine 


‚neue Ausgabe-Intercept- 
; Routine 


‚neuer File-Manager-Aufruf 


‚neuer RWTS-Aufruf 


;neuer Aufruf 
; un DOS anzuhängen 


neue Kaltstart-Adresse 


;neue Warnmstart-Adresse 


* FPID ({FP-Erkennung-Byte) muß $4C enthalten 


EXTRARN 
EXTLNKST 
EXTCOLD 
EXTNSTT 
EXTERR 
EXTNNMI 
EXTREST 


EXTIRQ 


EXTBRUN 


BRUNADR 


EXTSTPT 


EXTRDKEY 


EXTCOUT 


EXTOUTPT 


EXTINPRT 


BATCSR 


BEXTKS# 


ENBLERAN 


GCSWIND 
KS#IND 


NE#FMPL 
NEWIOB 


BIT 
JUP 
BIT 
JUP 
BIT 
JMP 
BIT 
JMP 
BIT 
JMP 
BIT 
JMP 
BIT 
JMP 
BIT 
JMP 


LDA 
STA 
LDA 
STA 
BIT 
JSR 
JMP 
BIT 
JSR 
JSR 
JMP 
BIT 
JSR 
JMP 
BIT 
JSR 
JMP 
BIT 
JSR 
JMP 
BIT 
JSR 
JMP 
BIT 
JSR 
JMP 
BIT 
JSR 
BIT 
BIT 
RTS 


JMP 
JMP 


EQU 
EQU 


RONSEL, 
RESTART 
RONSEL 
LINKSET 
RONSEL 
BASCOLD 
RONSEL 
NERSTT 
ROMSEL 
ERRENT 
ROMSEL 
NMI 
RONSEL 
RESET 
ROMSEL 
IRQ 


$DD72 
BRUNADR+1 
$DD73 
BRUNADR+2 
ROMSEL 
$FFFF 
ENBLERAM 
ROMSEL 
SETPTRS 
ENBLERAM 
$D7FF 
ROMSEL 
RDKEY 
ENBLERAM 
RONSEL 
COUT 
ENBLERAM 
RONSEL 
OUTPORT 
ENBLERAM 
ROMSEL 
INPORT 
ENBLERAM 
ROMSEL 
CSWIND 
ENBLERAM 
RONSEL 
KSWIND 
RAMSEL 
RAMSEL 


(CS#) 
(KSR) 


#* 
=+22 





Tabellen und Patches 





‚BASIC-Rarnstart 
‚Programm neu linken 
‚BASIC-Kaltstart 
‚neuen BASIC-Befehl ausführen 
‚BASIC-Fehlerausgabe 
‚;NMI-Routine 
;‚Reset-Routine 

‚ IRQ-Routine 
:BRUN-Ladeadresse 

; in Dummy-Adreßfela 
;‚ übertragen 

;s und Routine 


; aufrufen 


CLEAR durchführen 
{kein RTS, da Stack neu 
; initialisiert wurde) 


‚Zeichen einlesen 
‚Zeichen ausgeben 
‚Ausgabe-Slot festlegen 
‚Eingabe-Slot festlegen 


‚Ausgaberoutine 


;ROM lesen 
‚Eingaberoutine 
‚RAM lesen 
:RAM schreiben 


‚neue FMPL 
‚neuer IOB 





ORG x-GLOBAL+GLBINGE 


x Tabelle der Datenbereiche 


DATTBLE 


DA 
DA 
DA 
DA 
DA 
DA 
DA 


$9E51 
$A884 
$8397 
$B6B3 
$B7DF 
$BAll 
$BFAB 


;Page-S-Image 

‚strings und Variablen 
‚F4-Variablen und -tabellen 
:FWPL und Boot-Image 

;u.a, IOB 

;RWTS-Tabellen (Nibble) 
‚Sektor- und Skewing-Tabelle 


399 
391 
392 
393 
394 
395 
396 
397 
398 
399 
498 
4aBl 
402 
483 
a94 
465 
486 
497 
498 
499 
416 
all 
412 
413 
414 
415 
416 
417 
418 
419 
428 
421 
422 
423 
424 
425 
426 
427 
428 
429 


466 
467 
468 
469 
aTd 
a7ı 
aT2 
413 
474 
475 
476 
477 
478 
479 
480 


DATTBLEl DA 
DA 
DA 
DA 
DA 
DA 
DA 


= Tabelle der 


REFTBLE DA 
DA 
DA 
DA 
DA 
DA 
REFTBLEIl DA 
DA 
DA 
DA 
DA 
DA 


SIEBL 
$AAFD 
$B65E 
$B7B5 
$B8pH 
$BC56 
$BFDC 


:(Endadressen 
‚; der 0,8. 
; Datenbereiche) 


externen DOS-Referenzen 


SETPTRS 
NERSTT 
RDKEY 
COUT 
INPORT 
OUTPORT 
EXTSTPT 
EXTNSTT 
EXTRDKEY 
EXTCOUT 
EXTINPRT 
EXTOUTPT 


‚Original-Adresse 


‚neue Adresse in 
; der Global-Page 


* NMI-, Reset-, und IRQ-Vektortabelle 


VEKTBLE DA 
DA 
DA 


EXTNMI 
EXTREST 
EXTIRQ 


x Patch-Tabelle 


PTCHTBLE DA 
DFB 
JMP 
JMP 
JMP 
JMP 
LDA 
LDY 
RTS 
NOP 
NOP 
LDA 
LDY 
RTS 
NOP 
NOP 
JMP 


DA 
DFB 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 


DA 
DFB 
DFB 


DA 
DFB 
DA 
DA 
DA 
DA 
DA 
DA 


DA 
DFB 
JMP 
DA 
DFE 
CMP 
BCC 
JMP 
NAFLSOR STA 
JMP 
DA 
DFB 
DFB 


DA 
DFE 
RTS 


$9E51 

29 
NEWWARN 
NEWCOLD 
NEWFM 
NEWRWTS 
#>NEWFNPL 
#<NERFNPL 


*+>NE#IOB 
#+<NERIOB 


NERCNCT 


$9D9B 
16 
$FE79 
NEWIN 
NEWOUT 
$DD75 
$DD93 
$DD6Ep 
$DDAB 
NEWFMPL 


$9DB7 
ı 
<$9D6B 


$9D56 

12 

SD7FC 
$D7FC 
EXTERR 
EXTCOLD 
EXTWARM 
EXTLNKST 


$A2SD 
3 


$D6BC 
SASBC 
13 

+6 
MXFLSOK 
$D3C9 
$bD57 
$DADA 
SAABL 
1 

5 


$A5B7 


; Page-5-Image 


;DOS-Warmstart 
;DOS-Kaltstart 
;File-Manager-Aufruf 
;RWTS-Aufruf 
‘Position der 

; neuen FMPL 

; bestimmen 


;Position des 
; neuen IÖB 
: bestimmen 


‚D0OS anhängen 


;Relokator-Adreßtabelle 

; (für Masterdisk) 

‚Adresse des 1. Puffers 
;‚Eingaberoutine (KBD) 
‚Ausgaberoutine (VID) 
‚Adresse des ]. Namenspuffer 
‚Adresse des 2. Namenspuffer 
‚Adresse der Dateilänge 
‚DOS-Adresse (ehem. für INIT) 
‚Adresse der FMPL 


‚BASIC-Link nicht überschreiben 
:FP-BASIC-Linktabelle 


; RUN-Kommando 
; CHAIN-Kommando 

‚Fehlermeldung ausgeben 
;BASIC-Kaltstart 

; BASIC-Warmstart 

‚Programm neu linken 


:NAXFILES-Patch 


‚(Integer-BASIC-Bereich 
; kann überschrieben werden) 


‚maximal 5 Puffer 

‚weniger, dann weiter 

"RANGE ERROR" 

;MAXFILES 

;Pufferkette neu bilden 

; (Default-MAXFILES) 


‚5 Puffer als Default | 


‚kein Intger-BASIC anwählen 
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05 2.2 EA 


481 DA $ASSB ; HIMEM-Patch 596 DFB 1 

482 DFB 15 597 DFB $h4 ;VTOC ab Spur 1 freigeben 
483 PLA ;(ehm, HIMEM) 508 DA SAEFF 

484 PLA 599 DFB 3 

485 LDA #<GLOBAL ;neuer 51 JMP $SESTF ;kein DOS-Image eintragen 
486 STA MEMSIZE ; HIMEM-Wert ST 

487 STA FRETOP ; liegt unterhalb 512 DA $BTE4 ;Adreß-Pointer zum IOB 
488 LDA #>GLOBAL ; der Global-Page Sl DFB 2 

489 STA MEMSIZE+1 514 DA NEWIOB ;‚IOB nun in der Global-Page 
As9B STA FRETOP+L 515 

a9l RTS 516 DA $B7EB+E& ;‚DCT-Adresse im IÖOB 

492 57 DFB 2 

493 DA $AACI ;FMPL-Pufferadressen 518 DA $EAFB ;DCT bleibt in der LC 

494 DFB 6 519 

495 DA NEWIOB ‚neuer IOB 528 x Indirekte Sprünge werden nicht vom Relokator korrigiert 
496 DA $ESBB ;interner VTOC-Puffer 521 

497 DA $E7BB ;interner Directory-Puffer D22 DA SIEBA ;indirekter Sprung zur 
498 523 DFB o 3 ;‚ aktuellen Bingabe 

499 DA SAS6B ;‚INIT-Patch 524 JMP U EXTKSW 

598 DEB 1 525 DA $9FC5 ‚indirekter Sprung zur 
5ö1 RTS ;kein HELLO-Programm speichern 526 DFB 53 ; aktuellen Ausgabe 

582 DA $A989 ar JHP  EXTESW 

503 DFB 1 528 DA SsAsHl ‚indirekter Sprung zur 
504 DFB $41 ;INIT jetzt ohne Namensangabe er Hin mis eo 

595 DA  $AEB3 531 DA 9 ;Endmarker 


Hinweis zur Patch-Tabelle 


Die Bearbeitung der Patch-Tabelle wurde im Hinblick auf 
eine Erweiterung programmiert und erlaubt das Hinzufügen 
weiterer Patch-Bereiche in beliebiger Reihenfolge (z.B. 
CATALOG-Ctr1-C-Patch). Jeder Patch-Bereich muß folgender- 
maßen aufgebaut sein: 


— Patch-Adresse (2 Bytes) 
—- Länge des zu patchenden Bereichs (1 Byte) 
- eigentlicher Patch (max. 256 Bytes) 


Das Ende einer Tabelle muß durch zweı Nullen abgeschlossen 
werden 


Hexdump DOSMOVER 


BSAVE DOSMOVER, A$B090, L$035PB 


B260d: EB SC 36 BB SC 38 BA 51 
8268: 9E 84 AB 97 B3 B3 B6 DF 
8270: BT 11 BA A8 BF 81 9E FD 
8278: AA 5E B6 B5 B7 @6 B8 56 
8280: BC DC BF 65 D6 D2 D7 $c 
8288: FD ED FD 8B FE 95 FE 7F 
8299: BF AC BF 8B BF 94 BF A6 
8298: BF 9D BF 58 BF 5E BF 64 
82Aß: BF 51 9E 1D AC 34 BF 4C 
82A8: ZE BF AC 12 BF AC 1B BF 
82Bß: AQ BF AB CB 69 EA EA 49 
82B8: BF AB El 66 EA EA AC 24 
82C9: BF ßß SD 16 79 FE BG BF 
8208: 993 BF 75 DD 93 DD 68 DD | 
82D9: dB DD CB BF B7 9D 61 6B 
82D8: 56 9D BC FC D7 FC D7 52 
8S2Eß: BF A6 BF 3A BF 4 BF 5D 
82E8: AR 93 AC BC DE BC AZ BD 
82FB: C9 6 36 93 AC C9Y9 D3 8D 
82F8: 57 DD AC DA DA Bl AA Pl 
8300: 085 BT A5 Öl 60 3B AS BF 
8308: 68 68 A9 dB 85 73 85 6F 
8316: A9 BF 85 74 85 76 66 cı 
8318: AA 6 El BF BB E6 BB E7 
8329: 6B A5 Bl 69 B9 A9 Bl Al 
8328: B3 AE Bl BA FF AB 63 AC 
8339: 7F E6 EA B7 2 El BF EE 
8338: BT ß2 FB EA BA 9E 93 4AC 
8349: BS BF C5 9F 3 AC AF BF 
8348: 94 AZ P3 AC 6A BF BO 80 


SOBB: AD BG AA C9 AB DO PA 68 
söRs: C9 7C DB 65 68 C9 Al FO 
sö1ld: ds 20 DD FB AC DO 93 A9 
8018: 84 AB 9D 85 3A 84 3B A2 
8029: BE CA 30 19 BD 67 82 CA 
8028: C5 3B DB F5 ED 67 82 05 
8036: 3A DA EE BD 75 82 85 3A 
8038: BD 76 82 85 ZB A2 98 2B 
8BAB: SC FB AB B2 Bl 3A 85 3D 
848: 88 Bl 3A 85 3C 88 Bl 3A 
850: C9 26 FO BA CY9 AC DB 26 
8058: A2 BC CA 38 21 BD 83 82 
8ß6ß: CA C5 3D DB F5 BD 83 82 
868: C5 3C DÖ EE BD 90 82 48 
8670: BD BF 82 AA 68 AC C1 89 
8078: A5 2F C9 02 DB AB A5 3D 
8080: C9 9D 90 45 C9 CO FR Aal 
8688: A6 3C DA dA CS EB DA B6 
seßsß: A2 37 A9 BF DO 2B C9 B7 
8098: DB 1B EB ES 58 Ac EB FB 
SPAB: BO B8 BA 69 F9 AA A9 BF 
80AS: DB 17 C9 B5 DÖ 10 EB A9 
SsöBÄ: 98 BC Eß CD BO 8 8A 69 
8@BB: IB AA AY BF DÖ B3 18 69 
sdcH: 33 AB B2 91 3A 8A 88 91 
8BC8: 3A 26 53 F9 85 3A 84 3B 
SsEDB: CO ch FO 83 AC IF 80 18 
8ßDB: A2 A5 BD 16 9D 69 33 9D 
SOEB: 16 9D CA CA 1® FA A2 33 
SÖES: BD C9 AA 69 33 9D C9 AA 
SÖFB: CA CA 10 FA AG AA 85 3C 
SÖFS: A9 82 85 3D AD Al 82 85 
8lßd: 3A AD A2 82 85 3B AE AZ 
8108: 82 8A AB 88 Bl 3C 91 3A 
8119: 88 19 F9 8A AB Bl SC 85 
8118: 3A CB Bl 3C FO 12 85 3B 
8120: C8 Bl 3C AA 38 98 65 3C 
8128: 85 3C 98 DD E6& 3D D$ DS 


(die zwei letzten Nullen sind 
von Bedeutung) 
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Verkauf Hardware 


Fernschreiberinterface am 
Gameport m. Programm DM 79,- 
P. Benner, Hubertusstr. 131, 4150 
Krefeld 


Apple-SUPERANGEBOT 


Apple II C Systemeinheit, 

Monitor und 

Monitorstand DM 3000,—* 
Apple I! © Systemeinheit, 

Mouse, 2. Diskettenlaufwerk, 
Monitor und 

Monitorstand DM 3700," 
Apple Macintosh 128 KB, 

Monitor, Tastatur, Mouse, 
Macwrite, Macpaint DM 4500,— 
Apple Macintosh 512 KB 

Monitor, Tastatur, Mouse, 
Macwrite, Macpaint DM 5500,—* 
Mac Ten 10 MB Platte DM 5000,-* 


GEBRAUCHT 


Apple Macintosh 128 KB 
Monitor, Tastatur, Mouse, 
Macwrite, Macpaint DM 3700,- 
Apple Macintosh 512 KB 
Monitor, Tastatur, Mouse, 
Macwrite, Macpaint DM 4500,—* 


* Preise incl. MwSt. 


Täglich von 9.00 bis 16.00 Uhr 
Tel. 02 11/57 1001-02 


Bonnsystem GmbH 
Lueplatz 6, 4000 Düsseldorf 11 


Verkaufe Komplettsystem 
Apple IlI+ mit: 64K, 80Z, Z80, Cen- 
tronics-Interface, Monitor 22 MHz, 
externe RÄFI-Halltastatur. 1. Dis- 
kettenlaufwerk 35/40 Track, 100% 
kompatibel, 2. LW TEAC mit 640 
KB, zus. mit Controller + angepaß- 
tes DOS, Pascal, GP/M. Program- 
me CP/M + WordStar, Mail-Mer- 
ge; UCSD-Pascal 1.1; DOS 3.3 mit 
VisiCalc, VisiDex; Pro-DOS. Gerät 
1 Jahr alt, generalüberholt, 6 Mon. 
Garantie. Preis DM 4900,- A. 
Schäpers, Tel: 089/601 41586. 


Apple Ill + Profile VB DM 
4.500,— Sharp MZ 80 B kompl, 
Floppy, Drucker, viel Software, 
Schreibsystem (Wordstar), VB DM 
3500,- Apple Grafik Tablett + 
Orig. Software VB DM 800,— TA- 
Kugelkopfdrucker DIN A 3 seriell 
+ paral. 20Z/sec. VB DM 600,- 
Tel: 02641/1441 


lle + Imagewriter Monitor Ill 
Z80 2 Disk (40/80 Track) 128 KB 
Joystick Mouse 2SSC orig. AWork 
+ AWfriter 100 Disk Softw. 6000,- 
3/4 J. alt alles Original 

Tel-356 7372617 


Imagewriter + Super-$-Card 
+ Hdb, Tel.: 0241/86358 ab 18h 
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Apple /// u. Apple // 

1 Apple /// System 256 KB DM 
2330,-; 1 Silentype Drucker DM 
235,-; 28" Laufwerke mit Control- 
ler f. A//e DM 1256,00; 1 Typen- 
raddrucker C-Itho F10/55 parallel 
DM 2000,-; 1  Handkopie- 
rer 3 M DM 50,-; 2 Visicalc /// 
a DM 160,-; 2 Mail List Manager // 
/a DM 99,-; 1 Pro Fit Datenbank A/ 
// DM 300,-; 2 Visidex Apple //a 
DM 50,-; 2 Visicalc Apple // & DM 
50,-; 1 Pro Fit Datenbank A// DM 
400,-; 1 Senior Analyst A// DM 
50,-; 1 Profile /// Kit DM 80,-;; 
Täglich von 9.00 bis 18.00 Uhr, 
Tel.: 08217/510029 

CHS Datentechnik GmbH 


Apple Ile 128KB, Disk |l- 
+Contr. TAXAN VIS, Ill, EPSON 
FX 80+, Joyst (org.), IF: Drucker, 
RGB; 80Z, Lit.: Handb., Peeker 
u.a. SW.; Grafik, Spiele, Peeker 
u.a. Nur kompl. abzug. gegen 
Höchstgebot, Tel. 0641/75139 


Sonderpreis APPLE //e, 2 
Disk org. IxCentr., 1xGrappler +, 
80Z+64K, Z80 Mon., Softw. u.a. 
Appleworks, etc., 

Tel: 02161785171 


Microsoft Softcard II original. 
neuw. Z80B. 6 MHz 64K Speicher. 
CP/M-80. Handbücher. NP DM 
1680,— für DM 1100,- zu verkaufen. 
Tel. 026 33/961 47 (ab 17.00 Uhr). 


Apple Ile, 128KB, 807, Z80, 
SSC, org. Monitor, org. Laufw. ex- 
terne Preh Tastatur VB DM 2900. 
ERPHI Doppel Floppy (1,2MB) Ge- 
häuse, Netzteil u. Controller VB 
DM 1600 Tel: 09721/24934 


Apple /// 256 KB mit 2. Lauf- 
werk und Monitor kpl. VB DM 
3700,- T: 0641/7095397 ab 
17.00 h: 06417/45851 


Apple lie komp., 123 K RAM 
40/80 Zei. 16K Eprom, 16K Lang. 
Kart, IBM-LOOK, abges. Tasta. 
"780-Karte f. CGPM 2 Laufw. je 96 
TPI-2x80-Track, VB 2500,- DM, 
Tel: 02241/27973 
*Gross/Kleinschreikg.-+Monitor 


BASIS 108, 128 KB, Pseudo- 
floppy, Z80 Seriell + Parallel, 2- 
Drives, Software: 3 Betriebssyste- 
me, 9 Sprachen, jede Menge Spie- 
le + Utilities + Bücher + Monitor 
+ Tastatur für nur DM 3000,— (NP 
ca. DM 8000), Tel: 062 02/7 23 74 





Verkaufe neuwertigen App- 
le Ile + Apple Monitor II + Apple 
Disk II mit Controller + 80 Zei- 
chen-64KB Erweiterungskarte 
(doppelte Auflösung in HGR mög- 
lich) für DM 2700,— VHS 

Tel,: 062 34 / 7458 


) DEE 








Börse 


Apple Ilic,+Monitor |Ic+Maus, 
+umfangr. Softw. z.B. Applewriter, 
Double-hires-tools, Datenbank, 
Tasc (Basic-Compiler) + umfangr. 
Apple-Literatur, + alle Peeker mit 
Sammeldisks. Verk. DM 3000,- 
Tel.: Bütow (04289) 543 


512 Kb Erweiterung für den 
MAC incl. Einbau und Übernahme- 
garan. für nur DM 480,— 1Mb auf 
Anfr. Disketten 31/2 Zoll nur DM 
3,90 24 Stunden Service 
Anfragen Tel: 0221/7902901 


Apple lic, 2. Laufw. Scribe- 
Drucker div. Softw. VB DM 3300,- 
T: 0561/8044838 od 498343 
Hoffmann 


Mac Profi Speichererweiterung 
128=512KB DM 498- Baus. 
298,— Fa. Schlösser ab 17.00 Uhr 
Tel: 089/985889 


IBS AP-22 Z-80H 3 Mhz 64 KB 
RAM 450,-, Tel. 02 08/75 1466 ab 
18 Uhr 


Apple Ile, Ilc Mac und Apple- 
Zubehör - Bei uns sind Sie an der 
richtigen Adresse. 

Kostenlos Preisliste anfordern! 
Welz Electronic, Tel. 041 92/4628 


Epson Interfaceumbau 
f. AWorks DM 20. Mahr, Waldak- 
ker 71, 73 Esslingen 


Z80B+CPM 3.9u.2.20; Acce- 
lerator Il + Disk je DM 450,— 
Tel:: 0228/67 7423 


Verkauf Software: 


*%%**STOCKMASTER I11***** 
Das Apple Il-Programm für echte 
Börsengewinne, Diskette nur DM/ 
SFr. 485,-. Beschreibung 'pe02’ 
anfordern bei: Töngi Computer- 
Praxis, Aspeltstr, 4, 6500 Mainz. 
für die Schweiz: Denton Consul- 
tants AG, Auwisstr. 17, CH-8127 
Forch/Zürich. 


Wator-Simulation einer Räu- 
ber-Beute-Bez. Erzeugt Tabelle u. 
Grafik (Monitor); druckt Unter Mat 
(Grafik), erprobt, komfortabel, Do- 
mentation, (Pascal 1.2-Vers. DM 
30) 
Schluckebier, 
Berliner Str. 21 


5805 Breckerfeld, 


Software Uhr für Apple |l+, e, 
c, Zeitschaltmöglichkeit Diskette + 
Anleitung DM 25,— Oecking 
16.190.025 17391920 


Wg. System-Wechsel günstig 
abzug. Mac-Software, z.B. Multi- 
plan DM 400,- u.a. Original, neu 
Tel: 06102/17242 


ker 499994 


APPLE/lle weg. Systemw. 
Peeker 84/85 kompl. + Disk 1-10 
ohne 3,9 DM 150,- Pro-DOS-Edit. 
1.0 +MMU 2.0 + FSS1, 2, 10 DM 
100,—- Turbo-Pasc. 3.0 DM 140,— 
alles org. mit Anl. 07765/1287 


Pirate Defence 2.0 Kopier- 
schutz. Bombensicher und preis- 
wert zugleich. Für ProDOS, DOS, 
DIVERSI u.a. Info (50 Pf.) bei C. 
Bregler, Tulpenstr.2, 7519 Eppin- 
gen. Händleranfragen erwünscht! 


Original Sharp CPM + Pascal/ 
MT+, NP DM 2000,—- VB DM 600, -. 
Tel: 02641/1441 


Apple: Public Domain: Volu- 
me DM 15 Games, Schach, Mathe, 
Graphic etc. Derw. Lehrerpro., 
„Mini-Logo". Gratisinfo: 

Fa. Waltraud Muhle, Waldwinkel 3, 
2105 Seevetal 3 


GOA-Privatliquidation Praxis- 
erprobt, Preiswert und Schnell mit 
Mahnungsprg. und Ausdruck eines 
Bank-Zahlungsbeleges G. Gross- 
‚Säckinger Str. 16, 7887 Laufen- 
burg, Tel: 07763/5527 


PRINT-SHOP Grafiken aus oder 
in HGR kopieren? Disk DM 50,- B. 
Rüter, Rahdener Str. 65, 4955 Hille. 


Imagewriter-Zeichensatz- 
generator DM 30,- Info unter: 
02307/74075 


APPLE REPARATUREN 
(auch compatible M-boards, z.B. 
Atlas, Arca, CES, Datastar, 
Dipa, Lasar, Mewa, 

PC-48 + 64, Plato, Radix, 0. 
ae.) sowie Zusatzkarten und 
Disk-Drives führt unser Speziali- 
stenteam mit mehr als 5-jähriger 
Kunden- und Reparatur-Dienst-Er- 
fahrung, garantiert zuverlässig und 
besonders kostengünstig aus. 
Bitte genaue Fehlerangabe sowie 
Tel. Nr. für evil. Rückfragen nicht 
vergessen. 

Auf Wunsch Kostenvoranschlag. 
aaa-electronic gmbh 
Habsburgerstr. 134, 7800 Freiburg, 
Tel. 0761/2768864, Tx. 772642 aaad 


Auth. Roulette-Permanen- 
zen div. Casinos auf DOS-Format. 
Ihre Softwareideen werden schnell 
und günstig vom Insider realisiert. 
sogleich anrufen! Tel: 069/444690 
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Für Ihre Unterlagen 
Abonnement bestellt 


Ja, ich möchte Peeker abonnieren. 


Liefern Sie mir Peeker ab Ausgabe ............... zum Jahresbezugspreis 
von DM 72,- (Inland) inkl. MwSt. Die Lieferung erfolgt frei Haus. Porto, Verpak- 
kung und Zustellgebühren übernimmt der Verlag. Der Jahresbezugspreis für das 
Ausland beträgt DM 72,- inkl. MwSt., zzgl. DM 18,— Versandspesen. 


am. 


Vertrauensgarantie: 

Ich habe davon Kenntnis genommen, 
daß ich die Bestellung schriftlich 
durch Mitteilung an den Dr. Alfred 
Hüthig Verlag, Postfach 102869, 
6900 Heidelberg 1 innerhalb von 7 
Tagen widerrufen kann. Zur Frist- 
wahrung genügt die rechtzeitige Ab- 
sendung des Widerrufs (Datum des 
Poststempels). 


Ich wünsche jährliche Berechnung durch: 
[_] Verlagsrechnung I] Abbuchung von meinem Bank- 
bzw. Postscheckkonto 





Peeker 





rc Abo-Karte 


Bank / PschA 
Leserservice 
Postfach 102869 Bankleitzahl - Kto,-Nr. 
6900 Heidelberg 1 

Datum u Unterschrift 





Für Ihre Unterlagen 
Folgende Bücher bestellt: 





49444344 DEEKER 


Bitte senden Sie mir gegen Rechnung folgende Bücher: 
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am: 
bei; 





Peeker 
Versandbuchhandlung 


Postfach 102869 
6900 Heidelberg 1 


Dalum Unterschrift 


723939 BECKER 94 


Bitte senden Sie mir gegen Rechnung folgende Disketten: 


ei Buch-Karte 





Für Ihre Unterlagen 


Folgende Disketten 
und Programme bestellt: 





— [] Peeker-Sammeldiskette, einzeln LI Apple DOS 3.3, Begleitdiskette, DM 28,— 
Disk# _____, Disk# [I ProDOS, Band 1, Begleitdiskette, DM 28,- 
Disk# _____—_, Disk# I] ProDOS, Band 2, Begleitdiskette, DM 28,- 
Preis je Disk DM 28,- (einzeln) OD) Apple Assembler, Begleitdiskette, DM 28,— 
DO] Peeker-Sammeldiskette, U] ProDOS-Editor 1.0, Programm, DM 98,- 
= im Fortsetzungsbezug I MMU 2.0, Programm, DM 98, 
ab Disk # [1] INPUT 2.0, Programm, DM 98,- 
an: (Mindestbezug 6 Disketten) OD Softbreaker 1.0, Programm, DM 48,- 
Preis je Disk DM 20,- [] DB-Meister, Programm, DM 290,- 
bei: Neben DOS-Disketten auch liefern = Fr JE DM 48,— 
" uperquick, Programm, DM 48,— 
Peeker [] CP/M ja DI CP/M nein = perg 9 


Softwareabteilung 
Postfach 102869 
6900 Heidelberg 1 


Datum j Unterschrift 


aD Software -Karte 








E 
E 





DD Buch-Karte 





Name 





Firma 





Abteilung 





Straße 





PLZ/Ort 

Vertrauensgarantie: 

ich habe davon Kenntnis genommen, daß ich die Bestellung 
schriftlich durch Mitteilung an den Dr. Alfred Hüthig Verlag, 
Postfach 102869, 6900 Heidelberg 1 innerhalb von 

14 Tagen widerrufen kann. Zur Fristwahrung genügt die 
rechtzeitige Absendung des Widerrufs (Datum des 
Poststempels). 


Datum 


Bedingungen um ein Jahr, wenn es nicht 2 Monate vor 
Jahresende schriftlich gekündigt wird. 





Karte bitte vollständig ausfüllen 





< 
oO 
- 
= 
& 
3 
o 
z 
D 
3 
‘D 





Firma 








Straße 





PLZ/Ort 


Telelorı mit Vorwahl 





A Software -Karte 


Karte bitte vollständig ausfüllen 





Vorname, Name 


Firma 











Telefon mit Vorwahl 


POSTKARTE 


Peeker 
Leserservice 


Dr. Alfred Hüthig Verlag 
Postfach 10 2869 
6900 Heidelberg 1 


POSTKARTE 


Peeker 
Buchabteilung 


Dr. Alfred Hüthig Verlag 
Postfach 102869 
6900 Heidelberg 1 


POSTKARTE 


Peeker 
Softwareabteilung 


Dr. Alfred Hüthig Verlag 
Postfach 102369 
6900 Heidelberg 1 


INPUT 2.0 


Ein Bildschirm- 
Maskengenerator 


für DOS 3.3 und ProDOS 

von U. Stiehl 

1984, Diskeite und Manual, DM 98, — 

ISBN 3-7785-1021-5 

„Input 2.0" liegt wahlweise in der Bank 1 
oder Bank 2 der Language Card und wird 
durch einen kurzen Driver in den unteren 
ABK aufgerufen, 

Für jedes Feld der Bildschirmmaske lassen 
sich u.a. definieren: Feldlänge (bis zu 255 
Zeichen) — Vtab — Htab — Datentyp (insge- 
samt 8 Typen) - Scrollflag (starre oder dyna- 
mische Maske) - Ctriflag — Füllflag — Lösch- 
flag — Bildschirmflag (40- oder 80-Z-Darstel- 
lung). Innerhalb eines Eingabefeldes besteht 
jeder denkbare Redigierkomfort (Insert, De- 
lete, Rubout, Restore usw.). 
Gerätevoraussetzung: Apple Ile oder IIc; fer- 
ner Apple II+ im 40-Zeichenmodus 


MMU 2.0 


Memory Managements 
Utilities 

für die Apple lle 64K-Karte 

DOS 3.3 (und ProDOS) 


von. Stiehl 


1984, Diskette und Manual, DM 98,- 
ISBN 3-7787-1023-1 


Insgesamt enthält die neue „MMU 2.0”- 
Diskette über 25 Programme, die neue 
Einsatzmöglichkeiten für die Extended 80 
Column Card (erweiterte 80-Z-Karte = 
64K-Karte für den Apple Ile) erschließen. 
Ein Teil der Programme laufen auch auf 
dem Apple II Plus, doch ist „MMU 2.0" 
primär für 64K-Karte-Besitzer gedacht. 


Gerätevoraussetzung: Apple Ile mit 64K- 
Karte oder IIc 


Softbreaker 1.0 


Eine softwaremäßige Interrupt-Utility 
für die Apple lie 64K-Karte 


von UV. Stiehl 


1984, Diskette und Manual, DM 48,— 
ISBN 3-7785-1022-3 


Softbreaker ist ein Assemblerprogramm, mit 
dessen Hilfe Programme, die sich von der 
64K-Karte (= Extended 80 Column Card für 
den Apple Ile) starten lassen, unterbrochen, 
gespeichert, geladen und exakt an der Stelle 
der Unterbrechung fortgeführt werden kön- 
nen. Dadurch ist es auch möglich, Siche- 
rungskopien von sogenannten kopierge- 
schützten Programmen herzustellen, 

Mit Softbreaker unterbrochene Programme 
werden komplett, d. h. die ganzen 64K ein- 
schließlich Language Card, in nur ca. 11 Se- 
kunden auf einer formatierten Diskette gesi- 
chert. 

Gerätevoraussetzung: Apple Ile mit 64K- 
Karte 


Hüthig Software Service, 
Postfach 10 28 69, D-6900 Heidelberg 
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4 PRAXIS 94 


Matrizenrechnung 





in der betriebswirtschaftlichen Praxis 


von Dipl.-Betriebswirt Willy Holtkamp 


1. Wozu Matrizenrechnung? 


Wenn es gilt, betriebliche Abläufe in ihrer 
Wirkung darzustellen, greift der Unterneh- 
menscontroller gern zu Tabellenprogram- 
men wie Visicalc oder er wendet die Matri- 
zenrechnung an. 

Leider besitzt der Applesoft-Interpreter 
nicht die bekannten MAT-Befehle. Des- 
halb muß man hier FOR-NEXT-Schleifen 
anwenden, die viel Programmierarbeit er- 
fordern und Speicherplatz wegnehmen. 
Die langsamere Verarbeitung kann zum 
Teil durch den Einsatz eines Compilers 
und der Accelerator-Karte wettgemacht 
werden. 

Ein effizientes Arbeiten mit Matrizen ge- 
währleistet das Ampersoft-Paket von Mi- 
crosparc Inc., das zum Preis von ca. 200,- 
DM bei einschlägigen Importeuren erhält- 
lich ist. Eine preiswerte Alternative (ca. 
$20.00) wird von LRS-Systems angebo- 
ten (deutscher Importeur nicht bekannt). 
Um die Vorzüge der beiden Programme zu 
demonstrieren, habe ich zwei Beispiele 
gewählt. 


1.1. Beispiel Nr. 1 


Das Beispiel Nr. 1 ist der „Einführung in 
die lineare Planungsrechnug mit Algol- 
und Fortran-Programmen“ von Gerhard 
Niemeyer entnommen. Ich habe zu De- 
monstrationszwecken zwei Applesoft-Ver- 
sionen erstellt. Das erste BASIC-Pro- 
gramm MATRIX behandelt Vektoren - al- 
so eindimensionale Felder — wie Matrizen, 
während das Programm VEKTOR Vekto- 
ren in der gewohnten Vektorform definiert. 
Ampersoft verlangt die Definition von min- 
destens zweidimensionalen Feldern, wäh- 
rend das LRS-Programm die übliche Be- 
handlung von Vektoren vorsieht. Außer- 
dem ist zu beachten, daß bei Ampersoft 
Spalte O und Zeile O freibleiben müssen. 
Dagegen erfordert die Anwendung von 
LRS die Definition von Feldern einschließ- 
lich Spalte O und Zeile 0. 


1.2. Erstellung der Matrizen 


Der Controller Kraus hat in seinem Pro- 
duktionsbetrieb folgendes Planungsmo- 
dell aufgestellt: 


1. Der Produktionsplan für die Produkte P1 
und P2 sieht für den Zeitraum Oktober bis 
Dezember wie folgt aus: 





Pl PZ 
Oktober 109 15 
Novenber 15 30 
Dezember RO a0 











A(3,2) [Monat, Stück] 


Er bezeichnet den Produktionsplan mit 
dem Namen Matrix A und stellt fest, daß 
die Dimension von Mat A 3 Zeilen und 2 
Spalten beträgt. 


2. Die Produkte Pi und P2 werden aus 
den Einzelteilen a, b, c und d zusammen- 
gesetzt. Die nachfolgende Tabelle gibt 
Auskunft über die Kombination, die für 
jeweils 1 Stück notwendig ist: 


Pl 2 l 3 6) 
P2 & 6 8) 2 


B(2,4) [Produkt, Einzelteil| 





Die Stückliste für die Endprodukte P1 und 
P2 wird von Kraus Matrix B genannt und 
weist 2 Zeilen und 4 Spalten auf. 


3. Zur Herstellung der Einzelteile a-d be- 
nötigt der Betrieb die Materialarten A,B, C, 
und zwar in folgenden Mengen: 


A B G 
Einzelteil a 0,2 0,3 6) 
Einzelteil b 6) 8) 0,2 
Binzelteil © 0,8 0,2 0,4 
Einzelteil d 0,4 Der 8) 





m ne ru 


C(4,3) [Einzelteil, Materialmenge] 
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Die Matrix C gibt also den Materialbedarf je 
Stück der Einzelteile a-d an und besitzt 
einen Umfang von 4 Zeilen und 3 Spalten. 


4. Zur Erstellung der Einzelteile braucht 
der Betrieb nicht nur Material, sondern 
auch Arbeitskräfte. Deren Zeitbedarf in Mi- 
nuten für die einzelnen Arbeitsgänge hat 
Controller Kraus in der Matrix D festge- 
halten: 





D E F G H 
Einzelteil a 10 38 Ö Ö 5 
Einzelteil b A 1 3 2 5) 
Einzelteil c 00 4 1 6 
Einzelteil d 225 2 al 5 





— nn —- 


[Einzelteil, Zeit] 


D(4,5) 


5, Die Materialkostenmatrix F besitzt 3 Zei- 
len und 1 Spalte und hat folgendes Aus- 
sehen: 


Material A 10,00 
Material B 8,00 
Material C 15,00 








—— — 


F{3,1) [Material, Preis] 


6. Die Arbeitskosten je Minute für die Ar- 
beitsgänge D, E, F, G und H hat Kraus in 
der Matrix G zusammengefaßt. Die Matrix 
G hat den Umfang von 5 Zeilen und 1 
Spalte. 








a „0 


Arbeitsgang D 0,08 
Arbeitsgang E 0, 10 
Arbeitsgang F de 
Arbeitsgang G 0,15 
Arbeitsgang H 0,10 





G(5,1) [Arbeitsgang, Kosten] 


1.3. Die Kostenermittlung 


Kraus stellt nun folgende Überlegungen 
an: Er benötigt die unten aufgeführten 
Daten, um die Gesamtkosten des Zeit- 
raums Oktober-Dezember ermitteln zu 
können. 


a) Bedarf an Einzelteilen 

b) Bedarf an den einzelnen Materialarten 

c) Bedarf an Zeit für die einzelnen Arbeits- 
gänge 

d) Materialkosten 

e) Arbeitskosten 

f) Materialkosten je Stück der Einzelteile 

9) Arbeitskosten je Stück der Einzelteile 


Diese Informationen führen dann zu den 
Kosten für 3 Monate, wie aus der Ermitt- 
lung der Gesamtkosten zu erkennen ist. 
Die endgültige Lösung kann dann enispre- 
chend Lösung 1 oder Lösung 2 errech- 
net werden. 

Diese betriebswirtschaftliche Lösung ist 
noch einmal in der Tabelle 1 zusammen- 
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gestellt. Die Tabelle 2 gibt eine Übersicht 
für die Berechnungen mit Hilfe des Matri- 
zen- und Vektor-Programms. 


2. Ampersofit 


Die Entscheidung zum Kauf von Amper- 
soft löste meine bisherigen Probleme mit 
einem Schlag! Jetzt stehen mir 46333 
Bytes RAM zur Verfügung, so daß auch 
große Matrizen bewältigt werden können 
(siehe später folgendes Beispiel Nr. 2). 

In Verbindung mit der Accelerator-Karte ist 
Ampersoft jeder mir bekannten Lösung 
hinsichtlich Verarbeitungsgeschwindigkeit 
überlegen. 

Das Programm AMPERSOFTT (die im fol- 
genden besprochenen Programme sind 
nur auf der Peeker-Sammeldiskette ent- 
halten) macht deutlich, wie einfach die 
Programmierung mittels Ampersoft zu 
handhaben ist. Dazu trägt auch die kom- 
fortable Print-Using-Routine von Amper- 
soft bei, die in AMPERSOFT2 zu ersehen 
ist. 

Die Erstellung von Ampersoft-Dateien und 
das Einlesen dieser Dateien verdeutlichen 
die Programme AMPERSOFT3 und AM- 
PERSOFTA. 


2.1. Beispiel Nr. 2 


Das erste Beispiel vernachlässigte bewußt 
die Dateibehandlung. Nun will der Conirol- 
ler Kraus sechs Matrizen als Ampersoft- 
Files auf die Diskette schreiben und an- 
schließend diese Matrizen wieder einlesen 
und gemäß dem folgenden Schema mit- 
einander verknüpfen. Dabei wählt er be- 
wußt eine etwas umständliche Regelung, 
um möglichst viele Diskettenzugriffe und 
Memory-Clear-Vorgänge abwickeln zu 
können. 


Schema: 

1. Matrix A mal Matrix B ergibt den File 
aleı9 

2. Matrix C plus Matrix D ergibt den File 
„R1256" 

3. Matrix E mal Matrix F ergibt den File 
„S3434" 

4. Matrix H mal Matrix K ergibt den File 
„13434“ 

5. Matrix P mal Matrix Q ergibt den File 
„WA4040" 

6. Matrix S plus Matrix T ergibt den File 
„X3434" 


Aus dem Programm AMPERSOFTS ist zu 
ersehen, wie mächtig Ampersoft ist. Es 
bereitet keinerlei Probleme, die sechs 
Files auf einmal abzuspeichern. Das geht 
bei Applesoft sonst nur, wenn man einen 
DOS-Mover zur Verfügung hat, wie er z.B. 
beim Kauf einer Saturn-128K-Karte mitge- 
liefert wird. 

AMPERSOFTS6 stellt das Ampersoft-Pro- 
gramm dar, das die benötigten Files ein- 
liest und dann gemäß dem erwähnten 
Schema verknüpft. Ohne die Benutzung 
der Accelerator-Karte braucht der Apple 6 
Minuten und 21 Sekunden; mit der Acce- 
lerator-Karte kann die Verarbeitungszeit 
auf 3 Minuten und 21 Sekunden gesenkt 
werden. 

Die zweite Version (AMPERSOFT7) nutzt 
den großen Arbeitsspeicher aus, indem 
statt 3 Files maximal 6 Files im Speicher 
des Apple gehalten werden. Auf die Verar- 
beitungsgeschwindigkeit hat das praktisch 
keinen Einfluß. Version 3 (AMPERSOFTB) 
addiert die Matrizen S und T zur Matrix X 
und löscht dann den Speicher. Anschlie- 
Bend werden dann die Matrizen P und Q 
zur neuen Matrix „W4040“ verknüpft und 
abgelegt. Der optimierte Programmablauf 
weist die gleiche Verarbeitungsdauer auf 
wie die Versionen 1 und 2. 


. — 


Dez. 20 40 BF 4602 


Dez. 200 RED 60 80 


Einz. 
ı Einz 
Einz 
Binz 


Okt 80.100 30° 30 
Nov 150 195 45 60 


Dez, 200 260 60 80 





Ermittlung der Gesamtkosten 
Zu a) Mat A(3,2) : Mat B(2,4) = Mat Ergebnis (3,4) 


Fınz 


Okt. 80 100 30 30 Eınz 
Nov. 150 195 45 60 Eınz 
Fiınz 


a 
b 
c 
d 


a G d 


b 
okt. flo 135 80 100 30 30 
Nov. 15 30 “Pl 6 13 ) - [150 195 45 60 


200 260 60 80 


Zu b) Mat Ergebnis (3,4) : Mat C(4,3) = Mat Materialbedarf (3,3) 


A B C 


2 92 36 32 
90 66 Sr 
120 88 76 


3,0 

0.2 = 
‚2 0,4 
„> 08 


D-D 5 .O 


0, 
0 

0. 
0, 


ne 
00 


Zu c) Mat Ergebnis (3,4) - Mat D(4,5) = Mat Arbeitszeitbedarf (3,5) 


5 
0 —_ 
6 
3 


10 
di 
16) 
- 


nOr&ı 


Ö 
2 
1 
au 


who 
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3. LRS-Systems 


In einer Ausgabe der Zeitschrift „Nibble 
fand ich eine Kleinanzeige der Firma LRS- 
Systems. Ich schickte $20.00 in einem 
Einschreibebrief und erhielt nach kurzer 
Zeit eine kopierbare Diskette und ein vor- 
bildlich gestaltetes Anwender-Handbuch. 
Nach dem Studium dieses Handbuches 
war es für mich kein Problem, die nachfol- 
genden Programme zu schreiben. Das 
Programm LRS1 kann mit AMPERSOFTS6 
verglichen werden. Ohne Anwendung der 
Accelerator-Karte benötigt LRS 17 Minu- 
ten und 9 Sekunden (Ampersoft: 6 Min., 
21 Sek.). Steht eine Accelerator-Karte zur 
Verfügung, so kann die Verarbeitsungszeit 
auf ca. 7 Minuten und 39 Sekunden ge- 
senkt werden (Ampersoft: 3 Min., 21 
Sek.). LRS2 zeigt die direkte Lösung und 
entspricht in etwa der Ampersoft-Lösung 
in AMPERSOFT8. Das LRS-Programm 
braucht 6 Minuten und 38 Sekunden, 
wenn die Accelerator-Karte benutzt wird. 


Setzt man nun noch Diversi-DOS ein, so 
beträgt die Dauer der Bearbeitung nur 
noch 5 Minuten und 38 Sekunden. Das 
sind immerhin noch 2 Minuten und 17 
Sekunden mehr als bei Benutzung von 
Ampersoft. 


4. Vergleich Ampersoft mit LRS- 
Systems 


4.1. Gemeinsamkeiten 


— Matrixoperationen (IDN, INV, TRN usw.) 
— Löschen von Feldern 
— Ermittlung der Determinante 


4.2. Vorteile von Ampersoft 
gegenüber LRS 


— DOS-Mover bringt Arbeitsspeicher von 
AGK netto 

— Komfortables Print-Using 

— Sortieren von Real-, Integer- und 
String-Feldern 

— Schnelle Garbage Collection 

— Schnelles Speichern und Laden von 
Files 

— File-Behandlung ist mit einem einzigen 
Befehl zu programmieren 

— Allgemein sehr schnelle Verarbeitung 


4.3. Vorteile von LRS gegenüber 
Ampersoft 


- Geringer Preis 

— Programm kann entweder ab $8AA6 
oder ab $0800 geladen werden. (Das 
Laden ab $0800 gestattet ein optimales 
Ausnutzen des Arbeitsspeichers, wenn 
z.B. Hires-Grafik vorgesehen ist.) 

— Ausgezeichnetes Handbuch 
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PRAXIS 94 


D E E G H 
Okt. 1260 890 480 260 670 
Nov. 2400 1695 885 495 1200 
Dez. 3200 2260 1180 660 1600 


Zu d) Mat Materialbedarf (3,3) - Mat F (3,1) = Mat Materialkosten (3,1) 


Okt. 52 36 52 Material A 10 1288 
Nov. 90 66 cr » Material B B = 2283 


Dez. 120 88 76 Material C Ile: 3044 


Zu e) Mat Arbeitszeitbedarf (3,5) - Mat G (5,1) = Mat Arbeitskosten (3,1) 


D BE F G H 
Okt. 1260 890 480 260 670 Arbeitsgang D 0,08 391,80 
Nov. 2400 1695 885 495 1200 - Arbeitsgang E 0,10 = 1732,75 
Dez. 3200 2260 1180 660 1600, Arbeitsgang F 0,20 977,00 


Arbeitsgang G 0.15 
Arbeitsgang H 0,10 


Zu f) Mat (4,3) : Mat F (3,1) = Mat Einzteilkosten/M (4,1) 


Einz. a OD 5 0 4,40 
Einzs b 0 0) 0,2 Material A 10 2.00 
Einzs C 0,8 0,2 0,4 ‘ Material B 8 = 15,00 
Eilnze d 0,4 2 8 Material C Is S,. 600 


Zu g) Mat D (4,5) - Mat G (5,1) = Mat Einzteilkosten/A (4,1) 


Einz. a 10 8 6) 0 ie) Arbeitsgang D 0,08 2,10 
Einz, b A 1 3 2 D Arbeitsgang E 010 1,32 
Einz. © 0 0 A 1 6] Arbeitsgang F 0,201 = 11,55 
Einz. d 2 5 = au 3 Arbeitsgang G 0215 0291 
Arbeitsgang H DO 


Lösung 1: 
Mat Materialkosten (3,1) + Mat Arbeitskosten (3,1) 
= Mat Gesamtkosten (3,1) 


Okt, 1288,00 DM 391,80 DM 1679,80 DM 
Nov. 2283,00 DM I, 732,75 DM = 3015,75 DM 
Dez 3044,00 DM Sr 7 ,.00@DM 4021,00 DM 
Lösung 2: 


Mat Ergebnis (3,4) : {Mat Einzteilkosten/M + Mat Einzteilkosten/A} 
= Mat Gesamtkosten 














Okt. 80 100 30 30 Eine. a 4,40 Einz. a 2,10 

Nov. 150 195 45 50 Einz. b 3,00 + Binz. b u = 

Dez. 200 260 80 80 Einz. © 15,60 Binz. c 1955 
Einz; d 5,60 Binz. d eo: 

Okt, 80 100 30 30 Einz. a 6,50 1679,80 DM 

Nov, 150 195 45 60 Einz. b 4,32 = 3015,75 DM 

Dez. 200 260 GO 80 Einz. c jersel5 4021,00 DM 
Einz, d aa.: 

Tabelle 1 

Kostensituation im 4. Quartal 

Monat Materialkosten Arbeitskosten Gesamtkosten 

Oktober: 1288,00 3931,30 1679,80 

November: 2283,00 ee, 019.79 

Dezember: 3044,00 977,00 4021,00 


-..—.—au m Pl oo 
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5. Fazit 


Mit dem Erscheinen der beschriebenen 
Hilfsprogramme wurde eine Lücke bei der 
Anwendungsmöglichkeit des Apple II ge- 
schlossen. Jetzt kann der Unternehmens- 
controller auch umfangreiche und schwie- 
rige Simulationen in relativ kurzer Zeit 
durchführen. 


Kurzhinweise 


1. Zweck: Demonstrierung der Matrizen- 
rechnung in der betriebswirtschaftlichen 
Praxis mit Hilfe der Programm-Pakete Am- 
persoft und LSR 

2. Konfiguration: 

Apple Il+, Ile oder IIc; 

DOS 3.3; Ampersoft oder LSR müssen 
natürlich vorher von Ihrer eigenen Origi- 
naldiskette geladen werden! 

3. Test: 

RUN MATRIX 

RUN VEKTOR 

(es erfolgt keine Ausgabe der Ergebnisse) 
4. Sammeldisk: 

MATRIX 

(Applesoft-Programm zur Berechnung von 
Vektoren als Matrix) 

VEKTOR 

(Applesoft-Programm zur Vektor-Berech- 
nung) 

AMPERSOFT1 

(Ampersoft als Alternative zu MATRIX und 
VEKTOR) 

AMPERSOFT2 

(Ampersoft-Lösung: Ausdruck der Ergeb- 
nisse) 

AMPERSOFT3 

(Beispiel: Erstellen von Ampersoft-Files) 
AMPERSOFT4 

(Beispiel: Einlesen von Ampersoft-Files) 
AMPERSOFTS5 

(Beispiel Nr. 2: Erstellen von 6 großen 
Ampersoft-Files) 

AMPERSOFTS6 

(Beispiel Nr. 2: Ampersoft-Lösung, Ver- 
sion 1) 

AMPERSOFT7 

(Beispiel Nr. 2: Ampersoft-Lösung, Ver- 
sion 2) 

AMPERSOFT3 

(Beispiel Nr. 2: Ampersoft-Lösung, Ver- 
sion 3, direkt) 

LRS1 

(Beispiel Nr. 2: LRS-System, ähnlich Ver- 
sion 1) 

LSR2 

(Beispiel Nr. 2: LSR-System, ähnlich Ver- 
sion 3) 
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Weitere Kosteninformationen 
Der Bedarf an Einzelteilen beträgt: 


Ä B C D 
Oktober: 80 100 30 30 
November: 150 195 45 60 
Dezember: 200 2650 60 80 


Der Bedarf an den Materialarten A, B, C je Monat beträgt: 


Ä B Ü 
Oktober: 52 36 32 
Novenber: 90 66 St 
Dezember: 120 88 76 


Der Arbeitszeitbedarf für die Arbeitsgänge D-H beiträgt: 


D BE F G H 
Oktober: 1260 890 480 260 670 
November: 2400 18595 885 495 1200 
Dezember: 3200 2260 1180 660 1600 


Die Einzelteil-Stückkosten hinsichtlich Material- u. Arbeitskosten betragen: 


Stückkosten {Material) Arbeitskosten/Stück 


BEinzelteil a 4,40 2,10 
Einzelteil b 3,00 1,32 
Einzelteil © 15,60 1,55 
Einzelteil d 5,60 Iizsl 


Die gesamten Einzelteil-Stückkosten betragen: 


Einzelteil a = 6,50 
Einzelteil b = 4,52 
Einzelteilc = 17,15 
Einzelteild = ill 


Der Bedarf an Einzelteilen (E(l,J) - Summe Einzelteil-Stückkosten (T{l)) ergibt 
die nachstehend aufgeführten Gesamtkosten/Monat: 


Oktober = 1679,80 
November = 3015,75 
Dezenber = 4021,00 
Tabelle 2 


Berechnungsübersicht für Matrix-Beispiel 











Feldbezeichnung: Beschreibung der Matrix: 
Mat A(3,2) Produktionsplan für das 4. Quartal 
Mat B(2,4) Einzelteile a-d 
Mat C(4,3) Materialbedarf für die Einzelteile a-d 
Mat D{4,5)} Zeitbedarf für die Einzelteile a-d 
Mat F{3,1) Materialkosten für die Materialien A-C 
Mat G{5,1) Arbeitskosten für die Arbeitsgänge D-H 
Mat E(3,4) Mat A : Mat B = Mat Ergebnis 
Mat H(3,3) Mat Ergebnis * Mat C = Mat Materialbedarf 
Mat M(3,5) Mat Ergebnis ‘ Mat D = Mat Arbeitszeitbedarf 
Mat N(3,1) Mat Materialbedarf - Mat F = Mat Materialkosten 
Mat P(3,1) Mat Arbeitszeitbedarf * Mat G = Mat Arbeitskosten 
Mat Q(4,1) Mat C : Mat F = Mat Einzteilkosten/M 
Mat R(4,1) Mat D * Mat G = Mat Einzteilkosten/A 
Mat S(3,1) Mat Materialkosten + Mat Arbeitskosten 
= Mat Gesamtkosten 
Mat T(4,]1} Mat Einzteilkosten/M + Mat Einzteilkosten/A 
= Mat Gesamteinzteilkosten 
Mat V(3,1) Mat Ergebnis ' Mat Gesamteinzteilkosten 


= Mat Gesamtkosten 


He— nn 
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MATRIX 


1000 


REM Matrizenbeispiel aus Niemeyer 


1010 REM Programm MATRIX 

1020 REM von W. Holtkanp 

1050 DIM A(3,2),.B(2.4].0C(4,3) D(4. 51,713. 
G(5,1) 

1040 DEM E(3,4),H(3,3).M(3,5).{3.1],P(3,1)4 
O14,1),R(4,.1),.3(8.1), 17(4,.1),.43.1) 

1050 REM Eingabedaten 

1060 REM A(I,J) 

1970 DATA 10,15,15,30,20,40 

1080 REM B{I,J} 

1090 DATA 2,1,3,0,4,6,0,2 

1100 REM C(IL,J} 

1119 DATA .2,33.0.0,0.72. 8m =4 74 .32,0 

1120 REM D(I,J) 

1130 DATA 10,8,0,0,5,4,1,3,2,0,0,0,4,1,6.2, 
a 

1140 REM F(I,J) 

1150 DATA 10,8,15 

1160 REM G(I,J) 

1170 DATA z08..51.82.315. s1 

1130 REM Matrizen einlesen 

1190 FOR I=1T0 3: FR J=1172 

1200 READ A{I,J) 

1210 NEXT J,I 

1220 FOR I = 1 T0 2: FR J=1T0 4 

1230 READ B(I,J) 

1240 NEXT J,I 

1250 FOR I = 1 T0 4: FORRJ= 1170 3 

1260 READ C(I,J) 

1270 NEXT J,I 

1280 FOR I = 1 T0 4: FR J=1 105 

1290 READ D{I,J) 

1300 NEXT J,I 

15120 EOR I = 1 70 2: EORJ = 178 1 

1320 READ F(I,J} 

1330 NEXT J,I 

1340 FOR I = 1 T05: FERRJ=1T01 

1350 READ G(I,J) 

1360 NEXT J,I 

1570 REM Ergebnisse berechnen 

1380 FOrRRI=1703 

13990 FOR J=1T 4 

1400 EI =0 

1410 FERRK=- 1 TO 2 

1420 EI = EI + A(L,K) * B(K,J) 

1AS0 BIT,Ji = EI 

1440 NEXT K,J,I 

1450 FOR I=1 T03 

14E0 FOR J=1 703 

1470 HI = O0 

1480 FORRK = 1 T0 4 

1490 HI = HI + oo K) * C(K,J) 

1500. H{ T,J) = 

1510 NEXT K.J, 

1520 FOR I = + 7003 

1530 FÜR J= 1 T05 

1540 MI = OÖ 

1550 FORK = 1T0 4 

1560 MI = MI + E(I,K) = D(K,J) 

1570 M{I,J) = MI 

1580 NEXT K,J,I 

1590 FOR I=1T03 

1600 FOR J = 1 T01 

1610 NI = 0 

1620 FOR K = 1 T0 3 

1630 NI = NI + H{I,K) * F(K,J) 

1640 N{I,J) = NI 

1650 NEXT K,J,I 

1660 FOR I =1T0 3 

1670 FOR J=1 T01l 

1680 PJ = 0 

1690 FORK = 1 T0 5 

1700 PJ = PJY + M{L,K) = G(K,J) 

1710 P{I,J) = PJ 

1720 NEXT K,J,I 

1730 FOR I = 110 4 

1740 FOR J= 1 T01l 

1750 90I = 0 

1760 FERRK = 1T0 3 

770 Q0I = OI + Ci LK) = FiK,J) 

2780 Q(I,J} = Ol 

1790 NEXT K,J,I 

1800 FOR I=1T0 4 

1810 FOR J=1 TOl 

1820 RI = 0 

1830 FOR K il 70 5 
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RI = RI +D(IK) # G(K,S) 
R(I,J) = RI 

NEXT K,J,I 

FOR I=11703 


FOR J=1T0l 

S(I.J) = N{I,J}) + P(I,J) 
NEXT J,I 

FOR I=1T0 4 

FOR J=1 TOl 

Til.) - OILJL #RII.d) 
NEXT J,I 

FOR I=1T0 3 

FOR J=1T01 

vwW=0 

FOR K= 1 TO 4 

NI=eVI SS E(lEKR,L ETIRJ) 
V(L,J) = 

NEXT K,J,I 

REM Ergebnis-Ausdruck ab Zeile 2050 


VEKTOR 


1000 
1010 
1020 
1030 


1040 


1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 


1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
15900 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 


REM Matrizenbeispiel aus Niemeyer 
REM Programm VEKTOR 

REM von W. Holtkamp 

DIM A(3,2),B(2,4),C(4,3),D(4,5),F(3) 
G(5) 

BDIM E(3,.41 Hl2.31.M(5 Sl 012) Pie) 
Q(4},R{4),5(3),T(4),V(3) 

REM Eingabedaten 


REM A(I,J) 

DATA 10,15,15,30,20,40 
REM B(I,J) 

DATA 2,1,3,0,4,6,0,2 
REM C(I,J) 


DATA 92.5 3,0.0,0,.2. 258, 7 yd 74.2.8 
REM D(I,J) 

DATA 10,8,0.0,5.4,1,3.2.0.0.0,4.1,8 
22 le 

REM F(J) 

DATA 10,8,15 

REM G(J) 

DATA »208, .1.28.=15,. 31 

REM Matrizen/Vektoren einlesen 

FOR ı=1T7T0 3: FERJ=17T% 32 

READ A(I,J) 

NEXT J,I 

FOR I = 1 TO 2: FOR J 
READ B{I,J) 

NEXT J,I 

FOR I=1 104: FRJ=1T03 
READ C{I,J} 

NEXT J,I 

FOR I = 1T0 4: FOR J=1T5 
READ D(I,J) 

NEXT J,I 

FOR J=1T103 

READ F{J) 

NEXT J 

FOR J= 1 T05 

READ G(J) 

NEXT J 

REM Ergebnisse ermitteln 

FOR I=1T0 3 


1 TO 4 


FOR J= 110 4 
EI =0 

FORK=1172 
EI=EI+A(IK) x B(K,)) 
E(I,J) = EI 

NEXT K,J,I 

FOR I = 1 T0 3 

FOR J = 1 T0 3 

HI =0 

FORK = 1 T0 4 

HI =HI + E(I,K) = C(K,J) 
H(I,J) = HI 

NEXT K,J,I 

FOR I=1T0 3 


MI = 0 
FORK= 1 T0 4 

MI = MI + E(L,K) * D(K,J) 
M(I,J) =MI 

NEXT K,J,I 

FOR I=1 1703 

NI=0 

FOR J=1T0 3 

NI = NI+ H(I,J) * F{J) 
NKI)=N 

Bez A. 


PRAXIS 94 


1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 V 
1940 
1950 





= — 


EOR 1 = 1703 

PI=0 

FOR J=1105 

PI=PI+M(I,J) #» G(J} 

P(iI) = PI 

NEXT J,1I 

FöoR I = 1704 

0I=0 

FOR J=1T03 

I = QI + C(I,J} = F(J)} 

g(I) = QI 

NEXT J.LT 

FOR I=1T1T1 4 

RI=0 

FOR] = 177075 

RI =RI+D(IJ) = G(J) 

R(IJ) = RI 

NEXT J,I 

FOR I=1 103 

SI WIN DIESE) 

NEXT I 

FOR I=1T0 4 

TI ZBLE)ER(E) 

NEXT I 

FOR T=17m1%3 

vI=0 

a J=1T1714 
=VI+ E(LJ) * T(J) 
ie = u 

Me Se 

REM Ergebnis-Ausdruck ab Zeile 


1960 


| 
a 


Ältere Peeker-Hefte 


können für DM 6,50 pro Heft 
zuzüglich Versandspesen ange- 
fordert werden. Vergriffene 
Hefte sind als Photokopien 

für DM 10,- pro Heft erhält- 
lich. Mindestbestellmenge 

2 Hefte. 


Dr. 


A. Hüthig Verlag - Heidelberg 
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Konfiguration der 
seriellen Schnittstellen 
beim Apple Ilc 


von Enno Klatt 


Das in Applesoft-BASIC geschriebene 
Programm INIT.SERIELL ermöglicht die 
Konfiguration der seriellen Schnittstellen 
unter den Betriebssystemen ProDOS und 
DOS. Diese Konfiguration ist bis zum 
nächsten Einschalten des Rechners per- 
manent vorhanden. Das Programm ist eine 
Alternative zur zeitraubenden Konfigura- 
tion mit Hilfe der „UTILITY-Diskette”. 


Was passiert nach PR+1? 


Im „Apple IIc Reference Manual“ wird ei- 
ne Konfiguration z.B. für Schnittstelle 1 mit 
Kontroll-Sequenzen nach dem Aktivieren 
mit „PR#1“, beschrieben. Es fehlt hier 
nur der wichtige Hinweis, daß alle so vor- 
genommenen Änderungen der Konfigura- 
tion nur bis zum nächsten „PR#1" gelten, 
das heißt sie sind nicht permanent. 

Ein „PR#1“ führt stets eine Initialisierung 
der Schnittstellen durch. Dabei wird die 
Schnittstelle mit den im sekundären Spei- 
cherbereich (d.h. im „oberen“ Bildschirm- 
speicher) abgelegten Konfigurationswer- 
ten eingestellt. Diese Speicherstellen wer- 
den aber durch obige Kontroll-Sequenzen 
nicht verändert. 

Das Konfigurationsprogramm  INIT.SE- 
RIELL verändert nun die obigen Speicher- 
stellen. Wird z.B. ein Bildschirm-Echo ein- 
gerichtet, so ist dies während jeder Druk- 
kerausgabe, also nach jedem „PR#1" 
vorhanden (sofern der Rechner nicht aus- 
geschaltet wurde). 

Das Programm kann Teil des STARTUP- 
Programms unter ProDOS sein oder von 
diesem aufgerufen werden. Entsprechen- 
des gilt für DOS. Mit einem Programmlauf 
kann entweder „Port 1° (Druckeran- 
schluß) oder „Port 2° (Kommunikations- 
anschluß) konfiguriert werden. 
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Das Konfigurationsprogramm ist speziell 
für den Apple Ilc gedacht, da nur dieser 
zwei serielle Schnittstellen besitzt, die 
vom Rechner software-mäßig gesteueri 
werden. 


Anpassung des Programms 


Das Programm arbeitet nicht interaktiv, da 
es die Konfiguration eines Ports ohne Zeit- 
verlust vornehmen soll. 

Bevor das Programm gestartet werden 
kann, sind in den Programmzeilen 1060 
und 1070 (siehe Listing) die DATA-Anwei- 
sungen mit dem gewünschten Port und 
der Konfiguration einzutragen, womit die 
Beispiel-Eintragungen überschrieben 
werden. 


Zeile 1060: 

Hier ist die Nummer des zu konfigurieren- 
den Ports in numerischer Form einzu- 
geben: 

— Druckeranschluß: 1 für Port 1, 

— Kommunikationsanschluß: 2 für Port. 


Zeile 1070: 

Apple hat mit dem Ilc die sogenannten 
Produkt-Identifikationsnummern, Kurz 
„PIN“ genannt, definiert. Diese werden im 
Apple-IIc-Handbuch, „System-Diensipro- 
gramme“ in bezug auf die UTILITY-Dis- 
kette erklärt. Eine Konfiguration mit PINs 
hat die Form „xxx/xxxx", wobei „x für 
bestimmte Ziffern steht, Diese Konfigura- 
tion ist in der DATA-Zeile 1070 als Zei- 
chenkette einzugeben. 

Die Konfiguration kann aus der PIN-Tabel- 
le ermittelt werden. Darüber hinaus ist sie 
noch einmal in den Zeilen 1090 bis 1150 
kurz zusammengefaßt. 


Das Konfigurationsprogramm wird nun auf 
übliche Weise gestartet. Es kann damit 
jederzeit neu konfiguriert werden, z.B. um 
beim Wechsel von einem Drucker zu ei- 
nem Plotter geeignete Anpassungen der 
Schnittstellen vornehmen zu können. 
Sollen beide Ports konfiguriert werden, so 
muß das Programm zweimal — abgespei- 
chert unter sinnvollen Namen und verse- 
hen mit den besprochenen Eintragungen — 
ausgeführt werden. 


Fehlermeldungen 


-Angabe des Ports: Wurde in der DATA- 
Zeile 1060 nicht der numerische Wert 1 
oder 2 eingeben, so wird nach der Fehler- 
meldung nicht konfiguriert. 

-Angabe der Konfiguration in der Form 
„IXX/XXXX": Alle PINs werden auf die er- 
laubten maximalen bzw. minimalen Wert 
geprüft. Ist ein PIN oder sind mehrere 
nicht korrekt, so werden diese aufgelistet 
und es wird nicht konfiguriert. 
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Programmbeschreibung 


Applesoft-BASIC besitzt im Gegensatz zu 
Rechnern mit einer neueren BÄASIC-Ge- 
neration, wie z.B. dem HX-20 von Epson, 
keine direkte BASIC-Anweisung zur 
Schnittstellen-Konfiguration. Für eine 
„permanente“ Konfiguration bleibt nur der 
Weg über PEEKs und POKESs. 

Wie eingangs erwähnt, führt ein „PR#1“ 
steis eine Initialisierung der Schnittstellen 
durch, wobei das Initialisierungsprogramm 
die Konfigurationswerte aus den soge- 
nannten „Screenholes“  (Bildschirmlö- 
chern) des „Auxiliary Memory“ (sekundä- 
ren oder oberen Speicherbereichs) ent- 
nimmt. Es gibt drei Möglichkeiten, diese 
Speicherstellen zu beeinflussen: 


Initialisierung 


unten 


oben 





PR#1 


‚oben ‚unten 





INIT. SERIELL 


oben unten 





Steuer-Sequenzen 


oben "unten 





| _] Bildschirmloch bleibt 
== Bildschirmloch wird geändert 


Initialisierung der Screenholes (schema- 
tisch) 
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1. Rechner aus- und einschalten: Beim 
Einschalten werden aus dem ROM Konfi- 
guration-Ausgangswerte in die Screen- 
holes geschrieben. 

2. Utility-Programm: Konfigurationen kön- 
nen definiert werden. Sie gelten bis zum 
nächsten Einschalten. 

3. PEEKs und POKEs: Mit dem hier vorge- 
stelten Programm oder Teilen daraus 
kann die Konfiguration eingestellt werden. 


Es ist wichtig zu wissen, daB obige Konfi- 
Qurationen erst nach der nächsten Initiali- 
sierung, z.B. mit „PR#1“*, an der Schnitt- 
stelle wirksam werden. 


Es sind jeweils vier Speicherstellen für 
Port 1 und Port 2 vorhanden, die die Konfi- 
guration enthalten (siehe Listing Zeile 
1420 bis 1580). So enthält z.B. die Spei- 
cherstelle $0478 (Sekundärer Speicher- 
bereich) die durch PIN 2 und PIN 3 defi- 
nierten Werte. Da eine Speicherstelle aus 
einem Byte mit acht Bits besteht, reprä- 
sentiert z.B. der in DATA-Zeile 1180 ange- 
gebene dezimale Wert „14“ den binären 
Wert „OO00 1110“. Sinngemäß definieren 
alle PINs Werte, die die entsprechenden 
Bits in den o.g. Speicherstellen auf 1 oder 
0 setzen. 


Das Konfigurationsprogramm Ist in vier 
Abschnitte gegliedert: 

— Konfigurationswerte definieren, 

— Eingabe auslesen, 

— Konfigurationswerte berechnen, 

— Konfiguration durchführen. 

Die Ausführungszeit des Programms kann 
enorm reduziert werden, wenn nur der 
Programmabschnitt „Konfiguration durch- 
führen“ ausgeführt wird. Zu diesem 
Zweck läßt man sich nach Zeile 1730 die 
Variablen PO, W1, W2, W3 und WA anzei- 
gen. Werden diese Variablen dann durch 
einfache Wertzuweisung vorangestellt, 
kann sich das Programm auf den letzten 
Teil reduzieren. 


Kurzhinweise 


1. Zweck: 

Programm zur Initialisierung von jeweils 
einer der beiden seriellen Schnittstellen 
beim Apple Ilc. 

2. Konfiguration: 

Apple IIc; 

DOS 3.3 oder ProDOS 

3. Test: 

RUN INIT.SERIELL 

(vorher eventuell gewünschte PIN-Werte 
in DATA-Zeilen eintragen) 

4. Ssammeldisk: 

INIT-SERIEIELE 

(Applesoft-Programm) 
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INIT.SERIELL 1896 GOTO 1988 











1988 REM "PORT 2" 
1996 REM Serielle Schnittstellen definieren 191® POKE 1148,W#W1 + 16 
1818 REM von Enno Klatt, Hannover 1928 POKE 1149,W2 + 11 
1628 HOME 1938 POKE 1159,%#3 
183® PRINT TAB( 18);"Serielle Schnittstelle konfigurieren" 1948 POKE 1151,#4 
1ß49 REM — — 1958 REM ————— 111111 nn nn 
1859 REM Programmabschnitt: Konfigurationswerte definieren 1968 REM Sekundären Speicherbereich deaktivieren 
1d698 DATA 1 : REM "PORT 1" oder "PORT 2" numerisch 1978 REM "PRIMARY MEMORY" an 
1878 DATA "166/1124" : REM Konfiguration in "ASCII": "xxx/xxxx" 1988 S = PEEK (49236): REM $C954 
1988 REM PIN 1998 REM "8ßSTORE" aus 
1898 REM 1: Drucker, Kommunikation 208 POKE 49152,9: REM $C0d# 
11ß® REM 2: 6/1, 6/2, T/l, T/2, 8/1, 8/2 Byte/Stopp-Bits 2818 END 


1118 REM 3: 11, 390, 1209, 2480, A8B0, 96AP, 19200 Baud 
1128 REM 4: keine, gerade, ungerade, Mark-, Space-Parität 








113® REM 5: Echo aus, Echo ein PIN-Tabelle 

1146 REM 6: ohne LF, mit LF 

1158 REM 7: kein CR, CR nach 49, 72, 89, 132 Zeichen Die gesamte PIN setzt sich zusammen aus 7 Ziffern im Format 
1168 DATA ®,1 : REM PIN 1 abc/defg., Die Ziffern a-g entsprechen den PINs 1-7 und haben 
117% DATA 64,192,32,16®,®,128 : REM PIN 2 folgende Bedeutungen: 

1188 DATA 3,6,8,19,12,14,15 : REM PIN 3 

1198 DATA 9.,96,32,169, 224 : REM PIN 4 Ziffer a: 1 = Drucker 

1208 DATA 9,128 : REM PIN 5 2 = Kommunikation 

1218 DATA 9,64 : REM PIN 6 Ziffer b: 1 = 6 Daten-Bits/ 1 Stopp-Bit 

1228 DATA 9,460,72,89,132 : REM PIN 7 2 = 6 Daten-Bits/ 2 Stopp-Bits 

1256 REM ——— —- 3 = 7 Daten-Bits/ 1 Stopp-Bit 

1248 REM Programmabschnitt: Eingabe auslesen 4 = 7 Daten-Bits/ 2 Stopp-Bits 

1258 REM "PORT" bestimmen 5 = B Daten-Bits/ 1 Stopp-Bit 

1268 READ PO 6 = 8 Daten-Bits/ 2 Stopp-Bits 

1278 REM Konfiguration lesen (PINs bestimmen} Ziffer c: 1= 11% Baud 

1288 READ KO$ 2 = 3#9 Baud 

1298 Kl = VAL I MID$ (KO$,1,1)):K2 = VAL ( MID$ (K0$,2,1)) 3 = 1200 Baud 

1308 K3 = VAL | MID$ (K0$,3,1)):K4 = VAL ( MID$ (K0$,5,1)) 4 = 240 Baud 

1319 K5 = VAL I MID$ (K0$,6.1)):K6 = VAL ( MID$ (K0$,7,1}) 5 = 48ßd Baud 

1328 K7 = VAL ( MID$ (K0$,8,1)) 6 = 9699 Baud 

1338 REM Konfiguration prüfen 7 = 19296 Baud 

1349 IF Kl < 1 OR Kl > 2 THEN PRINT "PIN 1":FL=1 Ziffer d: 1 = keine Parität 

1358 IF K2 < 1 0ORK2 > 6 THEN PRINT "PIN 2":FL = | 2 = gerade Parität 

1368 IF K3 < 1ORK3 > 7 THEN PRINT "PIN 3":FL = 1 3 = ungerade Parität 

1378 IF K4 < 1 OR KA > 5 THEN PRINT "PIN 4":FL= | 4 = Mark-Parität 

1388 IF K5 < 1 ORKS > 2 THEN PRINT "PIN 5":FL = 1 5 = Space-Parität 

1398 IF K& < 1 OR K6& > 2 THEN PRINT "PIN 6":FL = | Ziffer e: 1 = Bildschirm-Echo aus 

1489 IF K7 < LOR K7 > 5 THEN PRINT "PIN T":FL = | 2 = Bildschirn-Echo an 

1418 IF FL = 1 THEN PRINT " war(en) falsch": END Ziffer f: 1= Ohne LF nach Cr 

1428 REM 2=LF nach CR 

14A3B REM Am—m—mmmmmm — | Ziffer g: 1 = kein Cr 

1449 REM Programmabschnitt: Konfigurationswerte berechnen 2 = CR nach 48 Zeichen 

1459 REM Adressen im "AUXILIARY MEMORY" welche die 3= CR nach 72 Zeichen P 
1468 REM — permanente Konfiguration speichern — A= CR nach 8 Zeichen = 
147% REM "PORT 1"-Adressen: Drucker 5 = Cr nach 132 Zeichen 

1486 REM $8478 (1144) definiert durch PIN 2 und 3 -—-> Wert: Wl 

1498 REM $9479 (1145} definiert durch PIN 4 —> Wert: W2 m Z— = 

1586 REM $647A (1146) definiert durch PIN 1,5 und 6 —-> Wert: W3 

151® REM $847B {1147) definiert durch PIN 7 -—-> Wert: W3 

1528 REM 

1538 REM "PORT 2"-Adressen: Kommunikation 

1548 REM $047C (1148) definiert durch PIN 2 und 3 —> Wert: mM 

1558 REM $847D (1149} definiert durch PIN 4 —> Wert: W2 

156® REM $@A7E (1159) definiert durch PIN 1,5 und & —> Wert: W35 

1578 REM $ß47F (1151) definiert durch PIN 7 —> Wert: W4 

1589 REM 

1599 REM "PIN 1" auswerten 

166d8 FOR I = 1 TO 2: READ X{I): NEXT :W3 = X(Kl) 

161 REM "PIN 2" auswerten 

1626 FOR I = 1 TO 6: READ X(I}): NEXT :W1 = X(K2) 

1658 REM "PIN 3" auswerten 4 

1649 FOR I= 1 70 7: READ X(T): NEXT :W1 = WI + X[KB) Telefonische Bestellungen? 
1659 REM "PIN 4" auswerten 

a a nn Da unsere Peeker-Disketten in offener Rechnung und nicht 
Th FOR 1-1 10 2: READ X{T): NEXT :W3 = W3 + X(K5) in dem für Sie teuren Nachnahme-Verfahren ausgeliefert 
1699 REM "PIN 6" auswerten | werden, haben Sie bitte Verständnis dafür, daß wir nur 


1768 FOR I = 1 TO 2: READ X(L): NEXT :W3 = #3 + X(K6) 
1718 REM "PIN 7" auswerten 
17268 FOR I = 1 TO 5: READ X(I): NEXT :#4 = X(K7} 


noch schriftliche Bestellungen annehmen. 
Sie können dazu beispielsweise die in jedem Peeker ein- 








1738 REM — ———— 

1748 REM Programmabschnitt: Konfiguration durchführen gehefteien Bestellkarten verwenden. 
17508 REM Sekundären Speicherbereich zum Schreiben aktivieren 

1769 REM "BOSTORE" an Hüthig Software Service 


1778 POKE 49153,9: REM $Cd61 

1786 REM "AUXILIARY MEMORY" an 

1798 S = PEEK (49237): REM $C955 

1898 REM "PORT" auswählen 

1818 IF PO = 1 THEN 1859 

18268 IF PO = 2 THEN 191 

1839 PRINT "PORT-Angabe falsch!": END 

1848 REM "PORT 1" 

1858 POKE 1144,W1 + 16: REM BIT 5 stets an ——> 16 = 16 
1860 POKE 1145,W2 + 11: REM BIT 1, 2, 4 stets an —> 1+2+48 = 11 
1878 POKE 1146,%#3 

1888 POKE 1147.W4 
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Das Utility-Paket besteht aus vier Modulen, die von Programmierern benutzt werden können, um 
professionelle grafische Anwendungsprogramme in Pascal zu schreiben. 


Benötigt wird ein Apple Pascal Betriebssystem, entweder die Version 1.1 oder die neue Version 
1.2. Bestehende Programme laufen ohne Einschränkung mit der neuen „TurtleGraphics“, wenn 
diese nicht zu viel Speicherplatz verbraucht haben, da die neue „TurtleGraphics“ umfangreicher 
als die alte ist. 


Im einzelnen bietet das Paket folgende Möglichkeiten: 


— volle Kompatibilität mit der alten „TurtleGraphics“ 

— lauffähig auf Pascal 1.1 und 1.2 

— funktionsfähig mit angeschlossener UltraTerm-Karte 

— alle zeitkritischen Funktionen in reinem Assembler programmiert 

— Benutzung der zweiten Hires-Seite ($4000-$5FFF) möglich 

— für Apple Ilc und Apple Ile mit erweiterter 80-Zeichen-Karte Benutzung der doppelten Hires- 
Grafik mit 560 x 192 Punkten bzw. 16 neuen Farben möglich 

— schnelle Prozeduren zum Zeichnen eines Punktes oder einer Linie 

— Linearisierung von Teilen des Hires-Schirms 

— Benutzung mehrerer Zeichensätze gleichzeitig 

— Laden und Speichern von Hires-Bildern mit Ausdruck über Pascal-SUPERDUMP 

— Scrolling des Hires-Schirms oder eines Teils in vier Richtungen 

— drei verschiedene Schriftarten: Fett-, Breit- und Proportionalschrift, beliebig mischbar 
(acht Möglichkeiten) 

— spezielle schnelle Ausgabe von Text 

— Cursor bei Eingabe frei programmierbar 

— Ein-/Ausgabe von INTEGER-, CHAR-, STRING- und REAL-Werten im Grafikmodus 

— Menüzeile wie beim Macintosh (Die nachfolgenden Module benötigen Maus/Joystick) 

— Pull-down-Menüs 

— Laden und Speichern von Fenstern (Windows) 

— Öffnen von Fenstern 

— Aktivieren und Deaktivieren von Fenstern 

— Verschieben und Vergrößern/Verkleinern von Fenstern 

— Scrolling von Fensterinhalten in allen vier Richtungen 

— Umfangreiche Demos als Quelltexte. 


Hüthig Software Service - Postfach 10 2869 : 6900 Heidelberg 
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von Dr. Jürgen B. Kehrel 


Eine ganze „Bibliothek“ von Applesoft-Erweiterungen kön- 
nen Sie in Ihren BASIC-Programmen verwenden, wenn Sie 
Assembler-Routinen nicht nur mit einem einfachen CALL 
aufrufen, sondern für deren Aufruf neue Befehlsworte 
schaffen und zusätzlich Parameter übergeben. Im folgenden 
wird beschrieben, wie Sie das machen können. 








Im Peeker, Heft 2/84, habe ich Ihnen be- 
reits ausführlich dargelegt, wie Sie mit 
dem Ampersand-Befeh! „&“ einen Über- 
gang zwischen Applesoft und Assembler 
schaffen können. Dort haben wir gesehen, 
daß Applesoft fast alle Informationen mit- 
tels der CHRGET/CHRGOT-Routine liest. 
Da diese im RAM-Bereich liegt ($00B1- 
$00C8), kann sie natürlich von uns verän- 
dert werden. Das gibt uns neben dem 
Ampersand eine zweite komfortable Mög- 
lichkeit, eigene Maschinenprogramme in 
Applesoft einzubinden. Wir müssen nur 
CHRGET so manipulieren, daß unser Pro- 
gramm erst überprüfen kann, ob es „ge- 
meint“ ist, bevor die Kontrolle wieder an 
Applesoft zurückgegeben wird. Zu den re- 
servierten Wörtern von Applesoft fügen 
wir eigene hinzu oder verleihen den exi- 
stierenden Befehlen neue Bedeutungen. 
Es sollte davon abgesehen werden, Na- 
men wie 

SORTIERE 

zu verwenden, da Applesoft darin OR ent- 
deckt, diesen Teil als Token abspeichert 
(s. Applesoft BASIC Programmmieranlei- 
tung, S. 126/127) und hinterher als 
SORTIERE 


Befehlsern 
CHRGET -N 


listet. Also Vorsicht bei der Namensge- 
bung! 


Wenn wir mehrere verschiedene Maschi- 
nenprogramme aufrufen oder in einem 
Programm an unterschiedlichen Stellen 
einspringen wollen, müssen wir eine Ent- 
scheidungs- und Sprungtabelle aufbauen. 
Damit nicht bei jedem Zeichen, das mit 
CHRGET gelesen wird, die ganze Tabelle 
durchsucht wird und dann erst der Befehl 
an Applesoft zurückgeht, was einen merk- 
lich langsameren Programmablauf zur Fol- 
ge hätte, werden wir alle neuen Befehle 
mit demselben Zeichen beginnen lassen. 
Dieses sollte im übrigen Text nicht auftau- 
chen. Bewährt hat sich das Paragraphzei- 
chen „$“ (auf amerikanischen Tastaturen 
der Klammeraffe „@"). Wenn ein Befehl 
nicht damit anfängt, gehen wir sofort nach 
Applesoft weiter. 

Noch eine Anmerkung, bevor wir uns das 
Listing genauer ansehen: 

Applesoft holt nicht alle Zeichen über 
CHRGET. REMs und DATAs werden z.B. 
mittels LDA TXTPTR,Y übersprungen. Das 
gleiche gilt (andernfalls wäre diese Mani- 
pulation nicht möglich) bei dem Übersprin- 
gen von Zeilenenden nach unzutreffenden 
IF-Anweisungen. Auch Strings werden 
nicht über CHRGET eingelesen: Nach 
Auswertung des Stringdeskriptors (String- 
Länge und -Position) wird der Textpointer 
(TXTPTR, $00B8) mit der String-Länge ad- 
diert. Vorsicht ist jedoch bei Variablenna- 
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anıpulation 





men geboten, da diese mit CHRGET ein- 
gelesen werden. Solange alle eigenen Be- 
fehle mit „S“ beginnen, bereitet dies je- 
doch keine Schwierigkeiten. 

Unser Programm CHRGET.SPRUNG 
setzt zunächst einmal HIMEM unter sich 
selbst, wenn es gestartet wird. Wie schon 
beim INSTRING-Programm aus Peeker, 
Heft 2/84 sollte das gleich in der ersten 
Zeile des Applesoft-Programms mit 
PRINT CHR$(4);"BRUN CHRGEIN 
.‚SPRUNG“ 

geschehen. Danach wird in die Speicher- 


stellen $00BA-$00BC ein Sprung zur 
zweiten Einstiegsstelle geschrieben und 
aus der CHRGET/CHRGOT-Routine im- 
mer zu dieser Adresse verzweigt. Die In- 
itialisierung ist damit abgeschlossen. 
Jedes gelesene Zeichen (auch im Direkt- 
modus) wird danach mit „S” verglichen, 
und im Falle der Übereinstimmung springt 
das Programm in die Auswertung. Ändern- 
falls werden die in $00BA-$00BC über- 
schriebenen Befehle nachgeholt, und es 
wird evtl. in die restliche CHRGET-Routine 
nach $OOBE zurückgesprungen. Applesoft 
„merkt“ gar nicht, daß zwischendurch 
noch etwas geschehen ist. 

Nehmen wir also an, ein „$S" sei gefunden 
worden. Jetzt werden so lange die nach- 
folgenden Zeichen gelesen, bis entweder 
eine offene Klammer, ein Doppelpunkt 
oder eine Null folgt, allerdings maximal 7 
Zeichen. Unser Befehlswort wird temporär 
nach TEMP zwischengespeichert, um für 
die Suche in der Sprungtabelle zur Verfü- 
gung zu stehen. Die offene Klammer gibt 
uns die Möglichkeit, noch Parameter an 
das eigentliche Maschinenprogramm zu 
übergeben, so daß ein Befehl z.B. die 
Form „SSUCH (A$,B$,F%,1%)“ haben 
Kann, womit wir die o.g. INSTRING-Suche 
auch starten könnten. 

Im Anschluß daran wird nun das Befehls- 
wort in der Tabelle gesucht. Wird es nicht 
gefunden, erfolgt die Meldung „SYNTAX 
ERROR“. Wird es in voller Länge gefun- 
den, so wird die in den folgenden Bytes 
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stehende Anfangsadresse in den Sprung- 
befehl kopiert und danach ausgeführt. 

Ihrer Phantasie sind bei der Aufstellung 
der Sprungtabelle keine Grenzen gesetzt, 
solange diese nicht länger als 256 Zeichen 
wird, da sie sonst nicht mehr indiziert gele- 
sen werden kann. Je länger Ihre Befenls- 
worte sind, um so weniger Befehle gehen 
natürlich hinein, so daß Sie eventuell ei- 
nen Kompromiß schließen müssen zwi- 
schen der Anschaulichkeit der Namen und 
der Zahl der möglichen Befehle. Die im 
Listing angegebenen Befehle sind natür- 





eiterung dur 





lich nur Beispiele. Sie sollten bei einer 
Erweiterung oder Umbenennung aber fol- 
gende Struktur beibehalten: 


Name1(ohne 8), $00, Adresse 1, Name 2, 
$00, Adresse 2, .... Name n, $00, Adresse 
n, $FF. 


$00 markiert das Namensende, $FF das 
Tabellenende. 

Das „Programm“ BELL ist ein einfacher 
Test, ob die Routine auch läuft. Nachdem 
Sie das Maschinenprogramm assembliert 
oder direkt eingegeben und mit „BSAVE 
CHRGET.SPRUNG, A$8400, L$O00A5“ 
abgespeichert haben, starten Sie es mit 
BRUN. Wenn Sie nun direkt auf der Tasta- 
tur SBELL eingeben, sollte beim Drücken 
der Return-Taste Ihr Apple einen kurzen 
„Beep” abgeben und danach sofort der 
normale Cursor auftauchen. Erscheint da- 
gegen „?SYNTAX ERROR“, haben Sie 
etwas falsch eingetippt. 

Als weiteres Beispiel wurde der erweiterte 
GOTO-Befehl aufgenommen, der als Ar- 
gument auch mathematische Ausdrücke 
zulaßt. Hier zeigt sich, daß auch einzelne 
Befehlsworte in die Tabelle geschrieben 
werden können. Zu beachten ist jedoch, 
daß bei der Benutzung des neuen Befehls 
eines der Trennzeichen („:“ oder „(“) 
nachgestellt werden muß. Also: 
S:GCOTOT2%5, 


Beim Eintippen einer Programmzeile, in 
der ein $-Befehl vorkommt, kann Wunder- 
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sames geschehen. Wenn das erste Zei- 
chen nach der Zeilennummer ein „$“ ist, 
wird der folgende Befehl sofort ausgeführt, 
ohne die Zeile in den Programmtext zu 
übernehmen. Dies liegt daran, daß die Zei- 
Iennummer von der Routine LINGET mit- 
tels CHRGET eingelesen wird, bis keine 
Ziffer mehr folgt. Da, um dies festzustel- 
len, das „$“ mitgelesen wird, verzweigt 
das geänderte CHRGET sofort zur Be- 
fehlsausführung. Um dies zu vermeiden, 
sollte entweder nur mit ausgeschalteter 
CHRGET-Manipulation programmiert (z.B. 





durch „FP” vor dem Eingeben eines neu- 
en Programms) oder dem S-Befehl im o.g. 
Fal ein „:“ vorangestellt werden. 
CHRGET.SPRUNG wird durch CALL 
33792 eingeschaltet, wenn es sich bereits 
im Speicher befindet. 


Sie haben sich jetzt ein Gerüst geschaf- 
fen, in das Sie nach Herzenslust eigene 
Routinen schreiben können. Im Peeker 
werden im Verlauf der nächsten Ausgaben 
sicherlich interessante Maschinenpro- 
gramme erscheinen, die Sie mit CHRGET- 
‚SPRUNG ganz einfach zu Ihrer privaten 
Programmbibliothek zusammenstellen 
können. 


Kurzhinweise 


1. Zweck: 

Hilfsprogramm zur Applesoft-Befehlser- 
weiterung. 

2. Konfiguration: 

Apple Il+, Ile oder IIc; 

DOS 3.3 (nicht ProDOS wegen HIMEM- 
Änderung!). 

3. Test: 

BRUN CHRGET.SPRUNG 

S BELL 

4. sammeldisk: 

CHRGET.SPRUNG 
(Maschinenprogramm) 
T.CHRGET.SPRUNG 

(Big-Mac-Quelltext). 
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AN 


BSAVE CHRGET.SPRUNG, 


8app: 
8482: 
8494: 
8486: 


sade: 
BABA: 
8aac: 
BABE: 
galß: 
8412: 
84l4: 


8415: 
8417: 
8419: 
8AlB: 
84lD: 
BAa2ßB: 
ga22: 
8424: 
8426: 
8428: 
BARA: 
84a2c: 
SARE: 
8430: 
8432: 
9434: 
8436: 
8438: 
843B: 
BA5Cc: 
843E: 
8440: 
Baar: 
8445: 
8447: 
8449: 
BAAC: 
BAAR: 
84580: 
8453: 
8455: 
8456: 
8457: 
| 8454: 
8455: 
SA5F: 
8461: 
8462: 
8465: 
8468: 
8469: 
8460: 
S46EF: 
SAr2. 
8475: 
garT: 


AD 


A9 
85 
A9 
85 


Ag 
85 
Ag 
85 
a9 
85 
6g 


c9 
FB 
c9 
BA 
ac 
Ad 
A2 
E6 
Dp 
E6 
Bl 
c9 
Fß 
c9 
Fß 
c9 
Fo 
9D 
E8 
Ep 
Fo 
DA 
8E 
AZ 
AB 
BD 
c9 
Fo 
D9 
DA 
EB 
c8 
cc 
DA 


DB 
E8 
BD 
8D 
E8 
BD 
8D 
ac 
BD 
F® 
E8 


AD 
73 
84 
74 


ac 
BA 
15 
BB 
84 
BC 


49 
87 
3A 
F7 
BE 


70) 
B8 
B2 
B9 
BB 
3A 
12 
28 
dE 
Bd 
BA 
82 


B8 
3F 
E2 
89 
BB 
DB 
BA 
FF 
2F 
82 
1D 


89 
ED 
8A 
lE 


8A 
79 


BA 
alt 
FF 
8A 
83 


BB 


84 


84 


84 


84 


84 


84 


84 
84 


84 
84 
FR 
84 


SO IDTARDNH 
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ASSAND, LERBAS 


* CHRGET. SPRUNG 


ze 

HIMEM EQU $8973 

CHRGET EQU $PBBl 

TXTPTR EQU $g@B8 

BACK EQU $0@BE 

CHRSPG EQU $ddBA 

NEWSTT  EQU $D7D2 

GOTOENT EQU %D941 

FRMNUM EQU $DD67 

SYNERR EQU $DECY 

GETADR EQU $E752 | 

x | 
ORG $84A8 | 

EEK FETT EFF FF 

* * 

* Syntax: SNAME(1.PARAM,2,PARAM, .) * 

# * 


EEE FTIR FI 


*# Dr, Jürgen B,. Kehrel, Juli 1984 
* 
* Setze HIMEM auf START 
* 
START LDA #<START 
STA HIMEM 
LDA #>START 
STA HIMEM+1 


* 
* Setze Einsprung auf EINSPG 
# 

LDA 
STA 
LDA 
STA 
LDA 
STA 
RTS 


+$4C 
CHRSPG 
#<EINSPG 
CHRSPG+1 
#>EINSPG 
CHRSPG+H2 


;JMP 


RETURN Aufrufer 
* 

* Zweiter Einstiegspunkt 

= 


EINSPG 


‚zurück 2. 


#549 
AUSWRT 
#83A 
RETURN 
BACK 

23) 

+9 
TXTPTR 
NAMEN1 
TXTPTR+1 
(TXTPTR),Y 
+53A 
SUCHEN 
+528 
SUCHEN 
+90 
SUCHEN 
TEMP,X 


CMP 
BEQ 
CMP 
BCS 
JMP 
LDY 
LDX 
INC 
BNE 
ING 
LDA 
CMP 
BEO 
CMP 
BEQ 
CMP 
BEQ 
STA 
INX 
EPX 
BEQ 
BNE 
STX 
LDX 
LDY 
LDA 
CMPF 
BEQ 
CMP 
BNE 
INX 
INY 
CPY 
BNE 
LDA 
BNE 
INX 
LDA 
STA 
INX 
LDA 
STA 
JMP 
LDA 
BEQ 
INX 


‚ist es "8"? 
‚weitere Auswertung 
‚ist es '":"?7 


‚zurück zu CHRGET 
AUSWRT ‚lade gesamt. Namen 


NAMEN 


NAMEN ‚nächstes Zeichen 


ist os ":" 
‚istces.tit 


‚ist es Zeilenende 


+8 

ERR 
NAMEN 
LNAME 
+ 

+B 
TAB,X 
#+$FF 
ERR 
TEMP,Y 
WEITER 


‚max. Länge 7 
;zu lang 
SUCHEN ;Namenslänge 


SUCHL 
SUCH2 


‚nicht gefunden 
‚nächster Nane 
LNAME 

SUCH2 


TAB,X 
ERR 


;Name ganz gelesen? 


TAB,X 
AUFRUF+1 


‚speichere Adresse 


TAB,X 
AUFRUF+2 
$FFFF 
TAB,X 
WEITER1 


AUFRUF 
WEITER 


;Pseudowert 


‚Namensende gefund. 


























BNE WEITER 





BATA: 


E8 883 WEITERl INX ‚überspringe Adr. 
847B: E8 89 INX 
847C: E8 99 INX 
847D: DB C8 91 BNE SUCHl 
847F: AC CO DE 92 ERR JMP SYNERR :SYNTAX ERROR 
93 TEMP DS ‚temp, Speicher 
94 LNAME DS 1 ;Namenslänge 
95 * a 
96 * Tabelle: Namen + Adressen 
97 3 
848A: AB 98 TAB DFB 171 ;GOTO-Token 
848B: AR 99 HEX 9% 
848C: 96 84 198 DA GOTO 
848E: A2 45 AC 1P1 ASG "BELL! 
8491: 4C 
8492: BB 192 HEX #8 
8493: DD FB 193 DA $FBDD 
8495: FF 194 HEX FF 
105 * 
186 + Neuer GOTO-Befehl 
197 x 
8496: 28 Bl 98 188 GOTO JSR CHRGET ;tı übergehen 
8499: 28 67 DD 199 JSR FRMNUM ;Ausdruck 
849C: 28 52 E7 119 JSR GETADR ‚auswerten 
849F: 28 A1 DS 111 JSR GOTOENT ‚GOTO ausführen 
84A2: AC D2 D7 112 JMP_ NEWSTT ;neuer Befehl 
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Oft stellt sich bei Programmen das Pro- 
blem, daß man nach dem Ausdruck einer 
Meldung nicht mehr weiß, wie der Bild- 
schirm vorher aussah. Man hat es in die- 
sem Fall schwer, den ursprünglichen Bild- 
schirminhalt zu rekonstruieren, speziell 
wenn man mit Bildschirmmasken arbeitet. 
Hier schafft das folgende Programm 
SCREEN.MOVER Abhilfe, das es ermög- 
licht, vor der Ausgabe einer Meldung den 
Bildschirminhalt abzuspeichern und nach- 
her wieder herzustellen. 

Eine andere Anwendungsmöglichkeit für 
das Programm besteht darin, eine Bildfol- 
ge abzuspeichern, die danach sehr schnell 
aufgerufen werden kann. Es lassen sich 
dann in Verbindung mit der Lores- oder 
der Double-Lores-Grafik einfache Anima- 
tionen realisieren. 


Die Befehie 


SCREEN.MOVER kann nach seinem Auf- 
ruf durch „BRUN SCREEN.MOVER“ bis 
zu acht Bildschirminhalte verwalten. Mit 
„&STORE 0" bis „&STORE 7“ läßt sich 
der aktuelle Bildschirminhalt in einen der 
Speicherplätze 0-7 abspeichern. Der Be- 
fehl zum Laden eines Bildschirminhalts 
lautet entsprechend „&LOAD 0“ bis 
„&LOAD 7". Die Festlegung der Puffer- 
nummer kann auch als Variable oder als 
Ausdruck eingegeben werden, also z.B. 
„&LOAD 1/2". 

Der SCREEN.MOVER stellt automatisch 
fest, ob die 80-Zeichenkarte aktiv ist, so 
daß sich sowohl 80- wie auch 40-Z/Z- 
Bildschirmseiten abspeichern lassen. Man 
sollte jedoch davon absehen, im 80-Z/Z- 
Modus zu speichern und im 40-Z/Z-Mo- 
dus den Puffer wieder einzulesen. 

Eine Beispiel zur Benutzung der beiden 
Befehle zeigt das Demoprogramm 
SC.MOVER.DEMO. 


Speicherbelegung 


Das Bildschirm-Speicherprogramm liegt 
normalerweise ab Adresse $0300 (768), 
läßt sich aber mit einem kleinen Patch in 
der INIT-Routine auch in andere Speicher- 
bereiche laden. 

Die Bildschirminhalte belegen die Langua- 
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ge Card ab $D000 (53248), sowohl Bank 1 
als auch Bank 2. Man kann auf Diskette 
abgespeicherte Bildschirme (z.B. fertige 
Menü- oder Hilfsseiten) direkt dorthin la- 
den und mit „&LOAD 0..7" abrufen. Durch 
„POKE 785,2“ läßt sich die Pufferzahi auf 
2 begrenzen, um unter ProDÖS nur die 
Bank 2 der Language Card zu benutzen. 
Es sei abschließend darauf hingewiesen, 
daß SCREEN.MOVER die sog. Screen- 
holes („Bildschirmlöcher“) ausspart, in 
denen diverse Parameter für die Periphe- 
riegeräte abgelegt werden. Durch den 
DOS-3.3-Test 

LOAD PROGRAMM 

CALL -151 

1000:0 

400<1000.13FFM 

LOAD PROGRAMM2 

(PROGRAMMI und PROGRAMM2 sind 
beliebige Applesoft-Programme) kann 
man sich davon überzeugen, daß das un- 
bedachte Löschen der Screenholes un- 
weigerlich zu einer Rekalibrierung des 
Laufwerks führt. 


Bildschirmmasken in 
der Language Card 





Kurzhinweise 


1. Zweck: 

Pufferung von bis zu 8 Bildschirmseiten in 
der LC. 

2. Konfiguration: 

Apple II+ {nur 40 Z/Z), Ile oder Ilc; nicht 
Videx-Karte! 

DOS 3.3 oder ProDOS 

(unter ProDOS durch „POKE 785,2“ die 
Pufferzahl begrenzen) 

3. Test: 

RUN SC.MOVER.DEMO 

4. Sammeldisk: 

SC.MOVER.DEMO 
(Applesoft-Demoprogramm) 
T.SCREEN.MOVER 

(Big-Mac-Quelltext) 

SCREEN.MOVER 

(Maschinenprogramm) 





SC.MOVER.DEMO 


18 HOME 


28 PRINT CHR$ (4)'"'BRUN SCREEN .MOVER'" 


SOr LIST. -SPRINE 


PRINT "Taste drücken": 


GET A$ 


aß & STORE ®: REM Bildschirm speichern 


5® HOME : 


PRINT "Taste drücken": 


GET A$ 


60 & LOAD ®: REM Bildschirm wieder laden 
78 VTAB 18: REM Cursor unter Listing setzen 


SCREEN.MOVER 


ooONloOoT RW Dd Hm 
u.ä. a. x * 


Lu u = 


Do 
L=} 
“KRREERKEERKENR 


& LOAD n 
&STORE n : 


Anmerkung: 


LEST ERZEN N En DZ u Zu DE a0 Do I Da 2 u 2 


SCREEN. MOVER 
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von Carl Frieder Mahr “ 
Esslingen, 1985 . 
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TELTSSEESTIT III TI 


Gerätevoraussetzung:! 


im 4ß-Z/Z-Modus: Apple II+,IIe,IlIc 
im 88-2Z/Z-Modus: Apple IIe,IIc 


Befehle: 


: Läat Bildschirm aus 
Puffernummer n., 

Speichert Bildschirm 

in Puffernumer n. 

8 Puffer stehen zur 
Verfügung mit n= (di 
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B38B: 
9382: 
9385: 
9307: 
BSBA: 


B3BB: 


B3BC: 
ÖSBF: 
A31B: 
B312: 


9314: 


9317: 
| BSlA: 
AZ1D: 
A31E: 
ASIF: 
0329: 
0322: 


B324: 
B326: 
0329: 


320: 
32E: 
#330: 
332: 


42 


Ag 
8D 
A9 
8D 
&ß 


48 


ac 


2C 
2C 
DA 
DA 
DA 
69 
9% 


E9 


2C 


BB 


F6 83 


F7 83 


F5 ES 


d8 
83 
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83 
83 


Do 
d8 


3d 
8B 
8B 


ale 
84 


B4 


El 


c® 
cp 


cp 
c9 


16 


95 


193 
184 
185 
186 
187 
198 
189 
11® 
111 
> 
113 
114 


* Token-Definitionen 


TOKLOAD = $B6 LOAD" 

TOKSTORE = $A8 STORE!" 

* Zeropage-Definitionen 

SCRN EQU $19 ;Bildschirm 

L&l EQU $1B ‚ungerade Spalten 
LC2 EQU $1D ‚gerade Spalten 


* Applesoft-Routinen 


SYNERRP EQU S$DECSI 
ILLOTYP EQU $E199 


;'"SYNTAX ERROR" 
"ILL QUANTITY'" 


GTBYTC EQU $ESFS5 :Byte holen 
x Softswitches 
RDS9VID EQU $colF ;86-Z/Z-Flag 
PAGEL EQU $c954 ;Main RAM 
PAGE2 EQU $0955 :Aux RAM 
RWBANKl EQU $C98B :LC-Switch 
RWBANK2 EQU $C983 :LC-Switch 
RDROM EQU $cBsl :ROM-Switch 
ORG $B39# 


* Ampersand-Vektor initialisieren 
INIT LDA 
STA 
LDA 
STA 
Rle 


#=<START 
$OSF6& 
#>START 
$03F7 


* Befehl LOAD/STORE sichern 


START PHA 


Puffernummer holen und 
* auf Gültigkeit überprüfen 


* 


JSR 
TXA 
CMP #898 
BCC 0K 


GTBYTC 


* Puffernumner zu groß => 
* Illegal Quantity Error drucken 


JMP ILLOTYP 


LC-Softswitches setzen und 
Basisadressen initialisieren 


Puffer B: $DE09..$D7FF Bank 2 
Puffer 1: $D8ß9..$DFFF Bank 2 


Die Puffer 2 bis 7 sind nur unter 
DOS 3.3 benutzbar! 


$EBBD. 
SESBR. 
$FBBD. 
$F8BB. 
$Döpp. 
$Dspd. 


Puffer 
Puffer 
Puffer 
Puffer 
Puffer 
Puffer 


.‚$ETFF Bank 1/2 
.$EFFF Bank 1/2 
.$F7FF Bank 1/2 
‚$FFFF Bank 1/2 
‚$D7FF Bank 1 
.$DFFF Bank 1 
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BIT 
BEL 
ASL 
ASL 
ASL 
ADC 
BCC 


RWBANKZ 
RWBANK2 


‚standard 
‚ist Bank 2 
;Puffernummer 
‚mal 8 ergibt 
‚Blockadresse 
#$DP 

INBANK2 


* LOAD/STORE Puffernumnmer 6,7 => 
* LOAD/STORE ab $D@8% in Bank 1 


SBC 
BT 
BI] 


#530 
RWBANK1 
RWBANKL 


#* Basisadressen festlegen 


LC1+l 
#594 
LC2+1 
+504 


INBANK2 STA 
ADC 
STA 
LDA 


0334: 
336: 
0338: 
D3ZA: 
B33C: 


B33E: 
B33ZF: 
A341: 
343: 
345: 


0347: 
BZAA: 


ÖS3AD: 
BZAF: 
9352: 


B354: 
0357: 
#359: 
B35B: 
B35E: 
B36h: 
0362: 


0363: 
0365: 
367: 
8369; 
A36B: 


B36D: 
Ö36F: 
Bar: 
0373: 
6375: 
A377: 
8379: 
BSTC: 


B37TD: 
Ö3TF: 
0382: 


0384: 
B387: 
#389: 
M38B: 
Ö38E: 
B398: 
0392: 
393: 


W395: 
397: 
#399; 
B39B: 
B39D: 
A39F:; 
Ö3Al: 
B3AA: 


85 
A9 
85 
85 
85 


68 
c9 
ro 
c9 
Fo 


ec 
ac 


Ad 
19 


rc 
Bl 
s 
et 
Bl 
31 
c8 


c9 
Dp 
AB 
c9 
9% 


E6 
E6 
E6 
AS 
c9 
9% 


60 


Ad 
2C 
19 


eu 


91 
2t 
Bl 
31 


DB 


81 Ch 
C9 DE 


BB 
IF cQ 
DA 


55 Cd 
1D 
19 
54 CQ 
1B 
13 


78 
B2 
80 
F8 
E2 


1A 
1C 
IE 
1A 
98 
D4 
81 Cd 


Bo 
IF cp 
DA 


55 09 


1D 
54 Cd 
19 
1B 


EA 


1A 
1C 
lE 
1A 
#8 
DC 
8l Cd 
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115 
116 
117 
118 
119 
128 
121 
122 
123 
124 
125 
126 
127 
128 
129 
138 
131 
132 
133 
134 
135 
136 
137 
138 
139 
146 
141 
142 
143 
144 
145 
146 
147 
148 
149 
158 
151 
152 
153 
154 
155 
156 
157 
158 
159 
166 
161 
162 
163 
164 
165 
166 
167 
168 
169 


178 
171 
Ir 
173 
174 
175 
176 
er 
1r& 
1:29 
189 
181 
182 
183 
194 
185 
186 
187 
188 
189 
19® 
191 
192 
193 
194 
195 
196 
197 
198 
199 


SCRN+L 
#500 
SCRN 
Lc1 
Le 


STA 
LDA 
STA 
STA 
STA 
* Befehl auswerten 
PLA 
CMP 
BEQ 
CMP 
BEQ 


#+TOKLOAD 
LOAD 
FTOKSTORE 
STORE 


+ Falscher Befehl => SYNTAX ERROR 


BIT RDROM 
JMP SYNERRP 


*» Bildschirminhalt laden > 


+ 1 m a 


LOAD 
LOAD® 


LDY #$00 
BIT RD8SVID 
BPL LOADL 


* Bß-Z/Z-Darstellung => 
* gerade Spalten laden 


PAGEZ 
(LE2),Y 
(SCRN),Y 
PAGEL 
(LEI), Er 
(SCRN),Y 


BIT 
LDA 
STA 
BIT 
LDA 
STA 
INY 


LOADI 


* I/0O-RAM überspringen 


+$78 
LOAD2 
+$80 
#$F8 
LOAD® 


CPY 
BNE 
LDY 
CPY 
BCC 


LOADR 


#* MSB erhöhen 


SCRN+1 
LC1+1 
LC2+1 
SCRN+H1 
+508 
LOAD 
RDROM 


ING 
ING 
INC 
LDA 
CMP 
BCC 
EIT 
RTS 


* Bildschirminhalt speichern 


Sal Zr 
‘=> nein 


WEertIer 


STORE LDY +$®9 
STORE BIT RD8S$dVID 20 2/22 
BPL STOREI1l ‚=> nein 


* 80-2Z/Z-Darstellung => 
* gerade Spalten speichern 


PAGE2 
(SCRN},Y 
(LC2),Y 
PAGEL 
(SCRN),Y 
(LC1),Y 


BIT 
LDA 
STA 
BEL 
LDA 
STA 
INY 
BNE 


STOREl 


STOREd 
= MSB erhöhen 


SCRN+1 
LC1+1 
L62+1 
SCRN+HL 
#598 
STORE 
RDROM 


ING 
INC 
INC 
LDA 
CMP 
BCC 
BIT 
RTS 


; fertig? 
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Will man das Bild einer Funktion mit 2 
unabhängigen Variablen in einer Zeichen- 
ebene darstellen, so muß man perspekti- 
visch zeichnen. Dabei werden Raumpunk- 
te mit 3 Koordinaten in Bildpunkte mit 2 
Koordinaten übertragen: Pix,yz ) — 
Qlu,v). 


Dreidimensionale 
Funktionsdarstellung 


von Alfred Böhm 


Achse des ebenen Koordinatensystems 
fallen mit der x- und z-Achse des räumli- 
chen zusammen. 

Wie stellt man nun einen Raumpunkt mit 
den Koordinaten P(x,y‚,z) als Bildpunkt 
Q(u,v) in der Ebene dar? Betrachten wir 
dazu folgendes Beispiel: 


grafik 4 








hen wir auf der x-Achse 1 Längeneinheit 
(LE) nach rechts, danach 3 LE in y-Rich- 
tung und daraufhin noch 3 LE in z-Rich- 
tung. In der Ebene beschreiben wir den- 
selben Punkt durch (u,v). Die Ebenen- 
Koordinaten (u,v) müssen wir nun aus den 
Raumkoordinaten (x,y,z) berechnen. 


Um den Punkt P(1,3,3) darzustellen, ge- 
Die Theorie a sei der Winkel, den die x-Achse mit der 
y-Achse in der perspektivischen Darstel- 


Um dies besser verstehen zu können, be- lung einschließt. Dann gilt: 


trachten wir Abb.2. Sowohl für die Raum- 
als auch für die Bildpunkte nehmen wir an, 
daß sie in einem kartesischen (rechtwinkli- 
gen) Koordinatensystem dargestellt wer- 
den. Der Ursprung des räumlichen Koordi- 
natensystems fällt dabei in der Zeichene- 
bene mit dem Ursprung des ebenen Koor- 
dinatensystems zusammen, die u- und v- 


U=X+X 
v=Z+7Z 
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ferner gilt: Bildpunkte liegen, wird die gesamte x-In- punkt sichtbar und VMAX(U1T) wird V1 ge- 

tervallänge durch 280 dividiert. Für SX = setzt. Ist V1 für ein festes U1 größer als 
x =ycosa ZE / 280 würde der Computer nun die das bisherige VMAX(U1), so liegt der Bild- 
z _ yeina maximal mögliche Bildpunktezahl berech- punkt unter dem bisherigen Maximalwert 


In obige Gleichung eingesetzt erhält man: 


U=X+Yycosa 
v=z+ysina 


Wie man die Lage eines einzeinen Bild- 
punktes nun prinzipiell berechnet, haben 
wir jetzt gesehen. Man könnte in das 
Schaubild nun natürlich noch ein Achsen- 


Abb. 2 


kreuz einzeichnen; im folgenden Pro- 
gramm wurde dies jedoch aus ästheli- 
schen Gründen unterlassen. 





nen. Bei dem zu zeichnenden 3D-Bild 
würden die Punkte jedoch zu dicht liegen. 
Deshalb wird die Schrittweite noch mit 
dem Faktor 5 gestreckt. 

In Zeile 320 werden die Anfangswerte für 
die Unterdrückung der unsichibaren Bild- 
punkte gesetzt, in 350 wird die darzustel- 
lende Funktion Z(x,y) eingegeben. In den 
Zeilen 400 und 410 werden die Bild- 
schirmkoordinaten des Bildpunktes be- 
rechnet, Zeile 420 schließt eventuell auf- 
tretende Fehlermeldungen (ILLEGAL 
QUANTITY) aus. 

Zur Unterdrückung der unsichtbaren Bild- 
punkte in den Zeilen 440 und 450: 

Wenn für ein festes U1 die Vi-Werie unter 
den bisherigen V1-Werten liegen, so ist 
ein Bildpunkt unsichtbar, da er hinter den 
anderen liegt. In Applesoft-BÄASIC bedeu- 
tet dies jedoch, daß für ein festes U1 die 
Vi-Werte größer sein müssen als die bis- 
herigen Werte, wenn der Bildpunkt un- 
sichtbar sein soll, da ja die Bildschirmkoor- 
dinaten von oben nach unten zunehmen. 
Wenn die Bildschirmkoordinaten eines 
Bildpunktes für ein festes U1 kleiner als 
die bisher kleinsten sind, dann ist der Bild- 


DARSTELLUNG.3D 


und ist daher unsichtbar. 


Bei dem in Abb. 1 dargestellten Bild wur- 
den folgende Werte eingegeben: 
IX=-2, RX =2,LY = -1.5, WI = 20. 


Für den einen oder anderen Leser bliebe 
vielleicht noch zu erwähnen, daß er das 
Bild mit BSAVE BILD1, A$4000, L$2000 
auf einer Diskette unter dem Namen 
„Bild1“ abspeichern und mit 

HGR2: PRINT CHR$(4);"BLOAD BILD1“ 
wieder auf den Bildschirm bringen kann. 


Kurzhinweise 


1. Zweck: 

Darstellung dreidimensionaler Funktionen 
2. Konfiguration: 

II-+ (mit G/K), Ile oder Ilc; 

DOS 3.3 oder ProDOS 

3. Test: 

RUN DARSTELLUNG.3SD 

4. Sammeldisk: 

DARSTELLUNG.3D 
(Applesoft-Programm) 


198 REM * Dreidimensionale Darstellung einer Funktion 
11 REM & mit zwei unabhängigen Variablen 


128 REM * Alfred Böhm, 1984 
156 PRINT CHR$ (21): HOME : 
14ß REM &* EINGABETEIL * 


REM 89%-Zeichenkarte abstellen 


| 15® INPUT "Linke Grenze für x: ";LX 
Das Programm 169 INPUT "Rechte Grenze für x: ";RX 
178 INPUT "Linke Grenze für y: ":LY 


In den Programmzeilen 150-170 werden 
die Intervallgrenzen für die x-Werte sowie 
die untere Intervallgrenze der y-Werte ein- 
gegeben. Die obere Intervallgrenze der y- 
Werte berechnet das Programm in Zeile 
270 selbst, indem die Intervallänge 7/10 
der x-Intervallänge gewählt wird. Dadurch 
vermeidet man, daß bei zu großen y-Inter- 
vallängen der Computer unnötige Arbeit 
verrichten muß, weil die zugehörigen Bild- 
punkte gar nicht mehr auf dem Bildschirm 
erscheinen. 

In Zeile 180 gibt man den Winkel a zwi- 


18% INPUT "Winkel zwischen x- und y-Achse 


";WI 


in Grad: 


198 WI = WI «* 3.14159 / 186: REM Umrechnung ins Bogenmaß 


288 SI = SIN (WI):CO = COS {WI} 
= RX - LX: REM Zahl der Einheiten auf der x-Achse 


218 ZE 


228 PZ = INT (286 / ZE): REM Bildschirmpunkte für eine 


Einheit 


230 REM Bildschirmkoordinaten des Ursprungs berechnen 


248 UB = INT ( - LX « PZ) 


2508 VO = INT (191 + LY = SI « PZ) 
260 REM Rechte Grenze des y-Intervalls berechnen 


ZTÖRY=LY+ (RX - LX) & .7 
2808 HGR2 : HCOLOR= 7 


298 SX = ZE / 289 & 5: REM Schrittweite in x-Richtung 
368 SY= SX « SI: REM Schrittweite in y-Richtung 


316 DIM VMAX(279) 


32ß FOR K = B TO 279:VMAX[K) = 191: NEKTK 


Ssß FOR Y = LY TO RY STEP SY 
34ß FOR X = LX TO RX STEP 5X 


schen der x- und der y-Achse ein (siehe 350 A=1/(X#+X+Ys*Y+ 5) 
Abb 1) In Zeile 210 wird die Zahl der 369 REM (U,V) ist die 2-dim. Abbildung von (x,y,2) 

ee | 37BU=-X+Y« 00 
Einheiten berechnet, welche das x-Inter- ZBBV=Z+4Y# SI 
vall umfaßt. in 220 die Zahl der Bildschirm- 398 REM (Ul,V1) sind die Bildschirmkoordinaten von (U,V) 

Kr . j : add U1 = Uß + INT (Ux PZ2+ 5 

punkte, die auf eine Einheit entfallen. Da- ap vı = “ _ INT e . En = 
durch kann man in den Zeilen 240 und 250 428 IF Ul > 279 OR V1 > 191 OR Ul < Ö OR VI < ® THEN GOTO 479 


die Bildschirmkoordinaten des Ursprungs 
berechnen. In Zeile 290 wird die Schritt- 
weite optimiert, in welcher der Computer 
die Funktionswerte berechnen soll, um in 
möglichst kurzer Zeit ein optimales Bild zu 
erzeugen. Da auf der u-Achse gerade 280 


44 


43% REM Die nächsten beiden Zeilen unterdrücken die 


unsichtbaren Punkte 


AAß IF Vl < VMAX(UL) THEN VMAX(Ul) = V1 
A5ß IF V1 > VMAX(Ul) THEN GOTO 478 


4658 HPLOT Ul,Vl 
478 NEXT X,Y 
488 END 


4 
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Bitte veröffentlichen Sie in der nächsterreichbaren Ausgabe nachstehenden 
Text unter folgender Rubrik: 


[] suche Hardware [} suche Software [| Verschiedenes 
L] biete Hardware [) biete Software [1 Chiffre 


2 

EHENNENEERNENEEEHRNENENE 
MAT DI I DR RT EN EN N I 
BESBEITENELINNNEHNEHEENENE 

Da I I I I DR RT DE RE I I | 
Bitte jeweils 32 Buchstaben pro Zeile-einschließlich Satzzeichen und Wort- 
zwischenräume. Bitte Absender nicht vergessen. Mindestens 2 Zeilen. 


Chiffregebühr DM 6,— zuzügl. MwSt. 


R 


‚sete________ erschienenen 
























Bau 
BEN 
FH 
Gelegenheitsanzeigen 
nes 








Sie können unter dieser 
' Rubrik zu einem besonders 
günstigen Preis 


@ Ihre Hardware und 
Software verkaufen 


@ Ihre Hard- und Software 
suchen DIDI 
@ Kontakte knüpfen und 


vieles mehr 


“ Peeker- Bo 








Zu der im Peeker, Heft 





Musteranzeige privat 


1 Druckzeile a 32 Buch- 
staben nur DM 5,50 
zuzügl. ges. MwSt. 
Mindestens 2 Druckzeilen 


Beispiel: 


Anzeige über 


bitte ich um detaillierte Information. 
Ich wünsche LI] Prospekt, Datenblatt L] Preisliste L schriftliches Angebot U tel. Rückruf 


gebe ich neben- 
stehende Bestellung 
unter Anerkennung 


Verkaufe neuwertigen Typenrad- 
Ihrer in der Anzeige 


drucker mit Apple-Interface. 
Preis auf Anfrage. Tel. 007 


nur DM 18,81 inkl. MwSt. 


genannten Liefer- und 
Zahlungsbedingungen 
auf. 





Unterschrift (für Jugendliche unter 18 Jahren der Erziehungsberechtigte) 


©® 
x 
k= 
=) 
r- 
“ 
6 
y 





Musteranzeige gewerblich | / ; 
1 Druckzeile a 32 Buch- ae | kr ER “u 
staben nur DM 11,- zuzügl. FRITZ 


ges. MwSt. Mindestens 
2 Druckzeilen 
we 


Schreiben Sie uns, wenn Sie technische Fragen zu Aufsätzen im Peeker 
haben. Beachten Sie jedoch, daß die Redaktion keine Auskünfte über Be- 
zugsquellen erteilt: 


Neu im Ana Dann 
separate Tastatur für Apple Il plus 


16 Funktionstasten und separatem 
Ziffernblock. 
Fa. Keyboard & Co. 





nur DM 62,70 inkl. MwSt. 

















Vorname, Name 





Firma 





je) 
en 
=. 
au 
=D 
(D 





= 
= 
= 
| 
o 
a 


PLZ/Ort 


Bitte veröffentlichen Sie den um- 
stehenden Text voon____ Zeilen 
DM in der nächsterreich- 
aren Ausgabe vom Peeker 









a 
b 


| Bei Angeboten: Ich bestätige, daß ich alle 
Rechte an den angebotenen Sachen besitze 
Datum Unterschrift 


Karte bitte vollständig ausfüllen 


& Peeker-Börse 








Vorname, Name 





Firma 








Straße 


PLZ/Or 





Telefon mit Vorwahl 

| Anschrift der Firma angeben, bei der Sie 
bestellen bzw. von der Sie Informationen 
wünschen 






® 
E 
” 
Rn 
> 
oO 
Q 
& 








Karte bitte vollständig ausfüllen 


Vorname, Name 





Firma 





Siralie 


PLF/OrI 


Telefon mit Vorwahl 


Bu Info -Karte 





POSTKARTE 


Peeker-Börse 
Anzeigen-Service 


Dr. Alfred Hüthig Verlag 
Postfach 10 2869 
6900 Heidelberg 1 


POSTKARTE 


Insereri 


Straße 


PLZ/Ort 


POSTKARTE 


Peeker 
Redaktion 


Dr. Alfred Hüthig Verlag 
Postfach 102869 
6900 Heidelberg 1 


a 


39394 





Produktf- 
Karte 








Wünschen Sie 
weitere Informatio- 
nen zu einer der im 
Heft erschienenen 
Anzeigen? 


Nichts einfacher als 
das. Produkt-Karte 
ausfüllen, frankieren 
und an den 
Inserenten (nicht an 
die Peeker-Redaktion 
senden. 


Vorher aber nicht 
vergessen: 

Kreuzen Sie an, 
welchen Informations- 
wunsch Sie haben. 


Damit erleichtern Sie 
dem Hersteller 

eine gezielte Beant- 
wortung Ihrer Anfrag 


Zum Schluß tragen 
Sie auf der Rück- 
seite die genaue 
Anschrift des 
Inserenten und Ihren 
Absender ein. 


EEKER 


Fu 












Teil 5: Assembler-Ein/Ausgabe in UCSD-Pascal 


Der folgende Aufsatz ist nicht nur für As- 
semblerfreaks gedacht. Bevor die Ein/ 
Ausgabe in Assembler verstanden werden 
kann, muß zuerst die oberste Ebene In 
Pascal betrachtet werden. Von dieser Ebe- 
ne werden wir langsam in die Ebene der 
Maschinensprache gleiten, um von dort 
aus auf alle Ein- und Ausgabeoperationen 
zugreifen zu Können. 


1. Die Pascal-Ebene 


Es gibt in Pascal mehrere Ebenen, in de- 
nen sich alle Ein/Ausgabe-Operationen 
abspielen. Die oberste Ebene ist die Pas- 
cal-Ebene. Zu dieser gehören alle Befeh- 
le, die sich auf File-Operationen beziehen. 
Nachdem ein File mit dem RESET- oder 
REWRITE-Befehl geöffnet wurde, gibt es 
je nach Art des Files drei verschiedene 
Zugriffe auf dessen Daten. Für Files des 
Typs TEXT und INTERACTIVE gibt es die 
READ- und WRITE-Befehle. Für Files ei- 
nes beliebigen Typs wie z.B. FILE OF IN- 
TEGER gibt es die GET- und PUT-Befehle, 
die immer einen Datensatz der Größe des 
entsprechenden Datentyps lesen oder 
schreiben. Die so definierten Files brau- 
chen immer einen Puffer, der aber vom 
Compiler beim Einrichten‘ einer solchen 
Variablen, z.B. durch die Definition 


VAR F: FILE OF INTEGER; 


bereitgestellt wird. Variablen eines sol- 
chen Files benötigen mindestens 300 
Words, also 600 Bytes plus die Größe des 
Datentyps, also zwei Bytes für den Typ 


48 


von Dieter Geiß 


INTEGER. Der Puffer wird benötigt, damit 
immer ein Block eines Files von Diskette 
gelesen werden kann, und aus diesem 
Puffer solange Werte entnommen werden, 
bis ein neuer Block gelesen werden muß. 
In unserem Beispiel passen 256 INTE- 
GER-Zahlen in einen Block, so daß beim 
Lesen oder Schreiben ein Laufwerk nach 
der 257. INTEGER-Zahl wieder anlaufen 
würde. Das Abspeichern der Daten im 
Puffer auf Diskette und das Lesen der 
Daten von Diskette in den Puffer muß der 
Programmierer nicht selbst übernehmen. 
Die entsprechenden Prozeduren GET und 
PUT, die im SYSTEM.PASCAL erklärt 
sind, übernehmen diese Arbeit. Sie sind 
recht kompliziert, was vor allem daran 
liegt, daß der Datentyp eines Files auch 
komplizierter sein kann als ein einfacher 
INTEGER-Typ. Bei höheren Datentypen 
wie ARRAYS oder RECORDS, die größer 
als ein Block sein können, muß die GET- 
Routine eventuell mehrmals auf Diskette 
zugreifen, bis ein Datensatz geladen wur- 
de. Da sich das alles in Pascal abspielt, ist 
es entsprechend langsam. 


Anders verhält es sich mit Files ohne Typ, 
die eine Definition wie 


VAR Er FILE, 


benötigen. Für sie reserviert der Compiler 
lediglich 40 Words, also 80 Bytes, denn 
sie benötigen keinen internen Puffer. Ihn 
muß der Programmierer zur Verfügung 
stellen, indem er ihn bei den beiden Be- 
fehlen BLOCKREAD und BLOCKWRITE 
angibt, so wie es im „Apple Pascal 
Language Reference Manual“, Seite 43 
beschrieben wird. Mit den Biock-Befehlen 
können aber auch nur ganze Blöcke gele- 
sen oder geschrieben werden. Die Ge- 
schwindigkeit läßt dann aber auch kaum zu 
wünschen übrig. Auch BLOCKREAD und 
BLOCKWRITE sind in Pascal implemen- 
tiert, jedoch bei weitem nicht so kompli- 
ziert wie GET und PUT, was an den oben 
erwähnten Restriktionen liegt. 


Fast eine Ebene tiefer, am Rande der Ma- 
schinensprache, aber immer noch In Pas- 
cal, finden sich die Unit-Befehle wie UNIT- 
READ, UNITWRITE, UNITCLEAR, UNIT- 
BUSY, UNITWAIT und UNITSTATUS. Sie 
werden vom Pascal-System benutzt, um 
direkt auf eine Unit zu schreiben oder von 
einer Unit zu lesen. Die oben erwähnten 
GET, PUT, BLOCKREAD und BLOCK- 
WRITE sind mit Hilfe der Unit-Prozeduren 
implementiert worden. Die Unit-Befehle 
sind die schnellsten Befehle für einen di- 
rekten Ein/Ausgabezugriff, wenn man nur 
in Pascal programmiert. Jeder dieser Be- 
fehle besteht im Prinzip aus nur einem 
Prozeduraufruf, der sofort vom P-Code- 
Interpreter ausgeführt wird und zur ent- 
sprechenden Maschinenroutine ver- 
zweigt. Als weiterer Unterschied ist zu be- 
merken, daß beim Benutzen der Unit-Be- 
fehle keine Ein/Ausgabe-Laufzeitfehler 
auftreten, im Gegensatz zu den GET-, 
PUT- BLOCKREAD- und BLOCKWRITE- 
Befehlen. Leider sind im Handbuch die 
Unit-Befehle nicht vollständig erklärt, ob- 
wohl man sie zur Assemblerprogrammie- 
rung genau kennen sollte. 


Unitnummern 


Vor der Erklärung der Prozeduren sollte 
man sich die Bedeutung der einzelnen 
Unitnummern ins Gedächtnis zurückrufen. 
In Pascal 1.1 gibt es zwölf und in Pascal 
1.2 20 reguläre Unitnummern. Weitere 16 
können selbst definiert und angeschlos- 
sen werden. Die Bedeutungen der ersten 
zwölf Nummern sind: 


#1: CONSOLE: 

#2: SYSTERM: 

#3: GRAPHIC: 

#4: Laufwerk l (Slot 6, Drive ]) 
#5: Laufwerk 2 (Slot 6, Drive 2) 
#6: PRINTER: 

#7: REMIN: 

#8: REMOUT: 

#9: Laufwerk 5 
+10: Laufwerk 6 
#11: Laufwerk 3 
#12: Laufwerk 4 
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CONSOLE: ist der angeschlossene Bild- 
schirm, wenn auf ihn geschrieben wird. 
Bei der Eingabe ist es die Tastatur, wobei 
das eingegebene Zeichen geechot wird. 
Die Standardfiles INPUT und OUTPUT 
sind an dieses Gerät angeschlossen. 
SYSTERM: ist die Abkürzung für SYStem 
TERMinal und ist bei der Ausgabe eben- 
falls der Bildschirm, bei der Eingabe die 
Tastatur, wobei das eingegebene Zeichen 
nicht geechot wird. Der Standardfile KEY- 
BOARD ist an dieses Gerät ange- 
schlossen. 

GRAPHIC: sollte ein angeschlossenes 
Grafik-Terminal sein. Auf dieser Unit funk- 
tioniert allerdings nur ein einziger sinnvol- 
ler Befehl. 

PRINTER: ist der angeschlossene Druk- 
ker, der nur in Slot 1 erkannt wird. 
REMIN: ist die Abkürzung für REMote IN- 
put und bedeutet eine angeschlossene 
Modem-Karte, also z.B. die Super-Serial- 
Card von Apple. Unitnummer 7 ist für die 
Eingabe über diese Karte bestimmt. Auch 
ein externes Terminal kann angeschlos- 
sen werden. Die Karte wird nur in Slot 2 
erkannt. 

REMOUT: ist die Abkürzung für REMote 
OUTput und ist vorhanden, wenn REMIN: 
vorhanden ist. Unitnummer 8 ist für die 
Ausgabe über ein Modem bestimmt. 

Die anderen Unitnummern bezeichnen bis 
zu sechs Laufwerke die in den Slots 6, 5 
und 4 angeschlossen werden können. 
Pascal 1.2 weist weiterhin die Nummern 
13 bis 20 auf, die jedoch nicht für normale 
Diskettenlaufwerke herangezogen werden 
können, sondern für große Massenspei- 
cher bestimmt sind, z.B. Profile. 


UNITREAD und UNITWRITE 


Da sie dieselben Parameter haben, sollen 
sie gemeinsam erklärt werden. Ein Aufruf 
der Prozeduren hat die Form 


UNITREAD (Nr., Ziel, Länge, Block, Modus) 
UNITWRITE (Nr., Quelle, Länge, Block, Modus) 


Dabei sind: „Unitnummer“ eine der oben 
erwähnten Nummern, „Ziel“ und „Quel- 
le“ Variablen beliebigen Typs, nicht nur 
des Typs „Array“, wie im Handbuch 
fälschlicherweise angegeben. Ist die Va- 
riable jedoch ein Array, egal ob gepackt 
oder ungepackt, so kann der Array auch 
indiziert werden. Dasselbe gilt für einen 
String. „Länge“ ist die Anzahl der Bytes, 
die ins „Ziel“ oder von der „Quelle” über- 
tragen werden sollen. „Block“ gibt die 
Blocknummer an, was nur bei den Units 4, 
5 und 9-12 einen Sinn ergibt, und „Mo- 
dus“ ist der Übertragungsmodus, der 
noch genauer untersucht werden soll, da 
auch er im Handbuch nicht bis in alle Ein- 
zelheiten erklärt ist. Die beiden letzten Pa- 
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rameter können auch weggelassen wer- 
den, wobei der Compiler an deren Stelle 
eine O setzt. Für verschiedene Unitnum- 
mern gibt es gewisse Unterschiede beim 
Aufruf von UNITREAD oder UNITWRITE. 
Units 1, 2, 6, 7, 8: Der Parameter-„Block“ 
ist ohne Bedeutung, da diese Units nicht 
blockorientiert sind. Die Anzahl der Bytes, 
die gelesen oder geschrieben werden, 
entspricht aber genau der Anzahl der gele- 
senen oder geschriebenen Bytes. UNIT- 
READ kann durch Eingabe eines CTRL-C 
vorzeitig beendet werden, wenn das Mo- 
dus-Wort entsprechend gesetzt wird. Bei- 
spiele: 


VAR C: CHAR; 

9: SIRING; 
UNTEREAD (2. 6, 1); 
{liest ein Zeichen von Tastatur ohne Echo} 
S := "Ausgabe einer Zeichenkette'; 
UNITWRITE (1, S [1], length (S))}; 
{gibt den String S auf Bildschirm aus} 
UNITWRITE (6, S [1], length (S)); 
{gibt S auf den Drucker aus} 
UNITREAD (7, S [1], 80); 
{liest von Modem maximal 80 Zeichen} 
UNLIWRITE.IS,. 20. 1); 
(gibt ein Zeichen an Modem aus} 


Units 4, 5, 9-12: Die Blocknummer gibt 
die absolute Blocknummer der Diskette 
an. Beim Lesen entspricht „Länge“ der 
Anzahl der tatsächlich gelesenen Bytes, 
wenn kein Disk-Fehler aufgetreten ist. 
Beim Schreiben jedoch muß man Vorsicht 
walten lassen. Es wird immer mindestens 
ein Sektor auf die Diskette geschrieben — 
d.h. es ist unmöglich, z.B. drei Bytes auf 
Diskette zu schreiben, ohne daß die ande- 
ren Bytes dieses Sektors überschrieben 
werden. Da ein Sektor immer 256 Bytes 
hat, sollte man seinen Puffer immer min- 
destens in dieser Größe wählen, noch 
besser ist ein Puffer, der eine vielfache 
Größe von 512 Bytes hat. Beispiele: 


VAR DIR : DIRECTORY; 
{Definition wie in Peeker 1/2 85} 
BLOCK: PACKED ARRAY [0..511] OF CHAR; 
UNITREAD (4, DIR, SIZEOF (DIR), 2); 
{liest Inhaltsverzeichnis 
von Boot-Diskette ab Block 2 } 
UNITWRITE (5, BLOCK, SIZEOF (BLOCK), 279); 
{schreibt einen Block von Daten 
auf den letzten Block auf Diskette} 


Das Modus-Byte, das nur für nicht-block- 
strukturierte Units Bedeutung hat, muß in 
einzelne Bits unterteilt werden: 


Bit O und 1: keine Bedeutung 

Bit 2 = 0: Bei der Ausgabe werden DLE- 
Zeichen konvertiert, d.h. das nach dem 
DLE folgende Zeichen wird, nach Abzug 
der Konstanten 32, als Anzahl der Leerzei- 
chen interpretiert. In diesem Format wer- 
den führende Leerzeichen bei Textfiles 
komprimiert abgespeichert. Bei der Einga- 
be wird ein EOF (CTRL-C) erkannt und 
das Lesen vorzeitig abgebrochen. 
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Bit 2 = 1: DLE-Umwandlung und EOF- 
Erkennung werden nicht durchgeführt. 

Bit 3 = 0: Nach einem Wagenrücklauf 
(ASCII CR) wird zusätzlich ein Zeilenvor- 
schub (ASCII LF) an das ausgebende Ge- 
rät gesandt. 

Bit3 = 1: Es wird kein Zeilenvorschub an 
das ausgebende Gerät gesandt. 

Bit 4 = 0: Bei der Eingabe werden die 
Sonderzeichen CTRL-A, Z, K, W und E 
abgefangen, die beim Apple ohne 80-Zei- 
chenkarte benutzt werden, um Groß- und 
Kleinschrift zu simulieren. 

Bit 4 = 1: Die Sonderzeichen werden 
nicht abgefangen. 

Bit 5 = 0: Bei der Ein- oder Ausgabe 
werden die drei Sonderzeichen CTRL-S 
(Stopp der Ein- und Ausgabe) und CTRL-F 
(Unterdrücken (Flush) der Ausgabe) sowie 
CTRL-8 (ASCII NUL) abgefangen. 

Bit 5 = 1: Die drei Sonderzeichen werden 
nicht abgefangen. 


Um die Werte für das Modus-Wort zu be- 
rechnen, muß man sich überlegen, welche 
Bits man setzen will. Diese multipliziert 
man mit ihrer Wertigkeit und addiert sie 
auf, Lassen Sie sich nicht von den Anga- 
ben im Apple-Pascal-Handbuch täuschen. 
Die Werte, die dort angegeben sind, sind 
ganz einfach falsch. Beispiele: 

Nach einem CR soll kein Zeilenvorschub 
ausgegeben werden, => Bit3= 1 => 
Modus ist2 1 3=8. 

Wie oben und zusätzlich soll die DLE- 
Umwandlung nicht stattfinden => Bit 2 = 
1 und Bit 3 = 1 => Modus ist2 T 2 +2 
13= 12. 

CTRL-S soll nicht abgefangen werden => 
Bit5 = I => Modus = 2 1 5 = 322. 
Listing 1 demonstriert dieses Beispiel, bei 
dem nicht wie sonst üblich mittels CTRL-S 
die Ausgabe angehalten werden kann. 
Setzt man alle Bits, gibt also den Modus- 
Wert 60 an, so kann ein Zeichen ohne 
störende Umwandlungen eingelesen wer- 
den, was quasi einem LDA $C000 gleich- 
kommt. Listing 2 zeigt ein Programm, mit 
dem beliebige Zeichen an den Drucker 
geschickt werden können, auch die Steu- 
erzeichen, die sonst nicht verfügbar sind. 


UNITCLEAR 


Die Prozedur UNITCLEAR hat nur eine 
initialisierende Bedeutung. 

UNITCLEAR (1) oder UNITCLEAR (2) 
setzt den Type-ahead-Buffer zurück und 
setzt den Bildschirm auf die linke Bild- 
schirmhälfte, falls ohne 80-Zeichenkarte 
gearbeitet wird. 

UNITCLEAR (3) 

schaltet auf den Text-Modus zurück, falls 
der Grafik-Modus eingeschaltet war. 
UNITCLEAR (4) 

hat keine besondere Bedeutung, außer 
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daß man damit testen kann, ob sich ein 
Disk-Controller in einem der Slots 6, 5 und 
4 befindet. 

UNITCLEAR (6) 

springt die Init-Routine des Druckers an, 
Es kommt auf das Interface in Slot 1 an, ob 
eine Aktion eingeleitet wird. Eine Aktion 
könnte das Löschen des Druckerpuffers 
sein. 

UNITCLEAR (7) oder UNITCLEAR (8) 
springt die Init-Routine des Modems an. 
Es kommt auf das Interface in Slot 2 an, ob 
eine Aktion eingeleitet wird. 


Mit Hilfe von UNITCLEAR kann man leicht 
nachprüfen, ob eine Unit angeschlossen 
ist. Hat nämlich ein nachfolgender IORE- 
SULT-Aufruf einen von Null verschiede- 
nen Wert, so kann daraus geschlossen 
werden, daß diese Unit nicht angeschlos- 
sen ist. Beim Wert Null kann dagegen bei 
blockstrukturierten Units nicht angenom- 
men werden, daß sie angeschlossen sind. 
Das liegt daran, daß pro Interface-Karte 
zwei Laufwerke erlaubt sind. Ist nur ein 
Laufwerk angeschlossen, so erhält man 
bei UNITCLEAR (4), aber auch bei UNIT- 
CLEAR (5), ein IORESULT von Null. Nur 
ein nachfolgendes UNITREAD kann Auf- 
schluß geben, ob ein Laufwerk ange- 
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schlossen ist oder nicht. Listing 3 zeig! 
ein kleines Programm, das alle ange- 
schlossenen Units zeigt. 


UNITBUSY 


Ein Aufruf von UNITBUSY ist am Apple 
ziemlich sinnlos. Die Funktion soll anzei- 
gen, ob ein Gerät beschäftigt ist oder 
nicht. Da die Gerätetreiber des Apple aber 
nicht interrupt-gesteuert sind, gibt diese 
Funktion immer den Wert FALSE zurück. 


UNITWAIT 


Diese Prozedur wartet, bis ein Gerät seine 
Ein- oder Ausgabe beendet hat. Aus dem- 
selben Grund wie bei UNITBUSY hat die 
Prozedur allerdings keine Bedeutung. 


UNITSTATUS 


Um den Status der angeschlossenen Ge- 
räte zu überprüfen, ruft man UNITSTATUS 
mit drei Parametern auf: 


UNITSTATUS (Unitnummer, Ziel, Kontrollwort) 


Dabei beschreibt „Unitnummer“ das Ge- 
rät, „Ziel“ ist eine Variable beliebigen 
Typs, zumeist aber ein Array, der dann 
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indiziert werden kann. „Kontrollwort” gibt 
die Arbeitsweise der Prozedur an. Im Kon- 
trollwort sind nur die Bits O und 1 relevant, 
Es bedeuten: 


Bit 0 = 0: Der Ausgabekanal wird befragt. 

Bit 0 = 1: Der Eingabekanal wird befragt. 

Bit 1 =D: Der Aufruf hat die Wirkung einer 
Statusabfrage. 

Bit 1 = 1: Der Aufruf hat die Wirkung eines 
Kontrolleingriffs. 


Wie man sieht, legt Bit O fest, welcher 
Kanal eines Geräts, z.B. eines Modems, 
befragt oder kontrolliert werden soll, wäah- 
rend Bit 1 bestimmt, ob nur eine Abfrage 
stattfinden oder ein anderer Zustand des 
Geräts eingestellt werden soll. Für Geräte, 
die fest am Apple angeschlossen sind, 
alse CONSOLE, SYSTERM:- GRAÄPHIE: 
und die Laufwerke, ist es einerlei, wie das 
Kontrollwort aussieht, da man bei diesen 
Geräten nichts kontrollieren kann. Nur 
wenn man eigene Treiber für neue Geräte 
anschließt, kann man den Bits im Kontroll- 
wort Beachtung schenken. Beispielsweise 
könnte ein Programmierer durch einen 
Aufruf von 
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„Die ProDOS Analyse“ ist die umfangreichste und detall- 
lierteste Darstellung, die jemals ein Apple-Betriebssystem 
erfahren hat. Wer die „Innereien“ von ProDOS bis zum 
letzten Byte, z. T. bis ins letzte Bit kennenlernen möchte, 
braucht dieses Buch. Das komplette Betriebssystem (Urla- 
der, MLI, Disk-Driver, RAM-Disk-Driver und Uhr-Routine) 
mit Ausnahme des BASIC-SYSTEM wird mit umfangrei- 
chen Kommentaren und Übersichtstabellen disassem- 
bliert. Dabei werden alle bisherigen Versionen von 1.0.1 
bis 1.1.1 berücksichtigt. „Die ProDOS-Analyse” be- 
schreibt erstmals auch mehrere Programmierfehler, die bis 
in die neueste Version zu finden sind. Auch die nicht im 
„Technical Reference Manual“ aufgeführten Eigenschaften 
von ProDOS werden analysiert und beschrieben, z. B. die 
vertrackten eingebauten Testroutinen zur Identifikation der 
verschiedenen Apple-Il-Modelle und eventueller Nachbau- 
geräte. Programmierer, die ProDOS versionsabhängig 
„patchen“ möchten, erhalten hier den genauen Überblick, 
wo was geändert werden muß, damit dies keine negativen 
Konsequenzen hat. Durch die minutiöse theoretische Se- 
zierung von ProDOS eröffnen sich völlig neue program- 
mierpraktische Perspektiven. 


Dr. Alfred Hüthig Verlag 
6900 Heidelberg - Postfach 102860 


Peeker 2/86 


und einem angeschlossenen Gerätetrei- 
ber für eine RAM-Karte als Pseudodisk für 
Unit 9 erreichen, daß diese auf „schreib- 
geschützt" gestellt wird. Selbstverständ- 
lich muß der Treiber den UNITSTATUS- 
Aufruf richtig verstehen und ausführen. 
Für die standardmäßig angeschlossenen 
Geräte ergeben sich folgende Funktionen: 


VAR 

Status : RECORD 
Anzahl : INTEGER; 
Offener_Apfel : BOOLEAN; 
Geschl_&Apfel : BOOLEAN; 
Sshift_Taste : BOOLEAN 
END; 


UNITSTATUS (1, Status, 1) öder 
UNITSTATUS (2, Status, 1); 


Status.Anzahl gibt die Zahl der sich in der 
Warteschlange befindenden, noch nicht 
abgearbeiteten Zeichen an. 

Die drei anderen Variablen werden nur bei 
Pascal 1.2 gesetzt und geben an, ob die 
Öffene-Apfel-Taste, die Geschlossene- 
Apfel-Taste oder die Shift-Taste gedrückt 
wurde. Letztere kann nur mit eingebauter 
„Shift-Key-Modification“ erkannt werden. 
Es wird der Eingabekanal befragt (Kontroll- 
wort = 1), was aber nur bei Pascal 1.1 
nötig ist. Bei Pascal 1.2 wird kein Wert auf 
das Kontrollwort gelegt. 


VAR 
DiskStatus: RECORD 


Anz_gepuff_Bytes :INTEGER; 
Bytes_pro_Sektor :INTEGER; 
Sektoren_pro_Spur :INTEGER; 
Spuren_pro_Disk : INTEGER 


END; 


UNITSTATUS (A, Diskstatus, 0); 


Die Definitionen im Record DiskStatus 
sind wohl selbsterklärend. Die Anzahl der 
gepufferten Bytes ist beim Apple immer 0. 
Beim Multiplizieren von Bytes_pro_Sektor 
mit Sektoren_pro_Spur und Spuren_pro- 
_Disk ergibt sich die schon fast legendäre 
Zahl 143360, was genau der Speicherka- 
pazität eines normalen Apple-Laufwerks in 
Bytes entspricht. 


Für PRINTER:, REMIN: und REMOUT: wird 
bei einem Aufruf von 


VAR I : INTEGER; 
UNITSTATUS (6, L, 0); 


lediglich die Variable | auf Null gesetzt. 
Mit diesem Wissen ausgerüstet können 
wir getrost eine Ebene tiefer gelangen. 


2. Die RSP-Ebene 


RSP heißt Runtime-Support-Package 
und ist das Bindeglied zwischen der Pas- 
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cal-Ebene und der untersten, der BIOS- 
Ebene (Basic Input Output System). Die 
Aufgabe des RSP ist es, die von Pascal 
angelieferten Parameter für das BIOS 
mundgerecht aufzubereiten. Das RSP ist 
wie das BIOS ein Teil des Interpreters und 
in Maschinensprache geschrieben. Es ist 
aber noch nicht die Ebene, in der eigene 
Maschinenprogramme Ein- oder Ausga- 
be-Routinen anspringen können. Um zu 
verstehen, was das RSP leistet, verfolgen 
wir einen UNITWRITE-Befehl von der Pas- 
cal- zur RSP-Ebene. Wir untersuchen die 
Pasacl-Zeile 


UNITWRITE (2, A [3], 1, 0, 60}; 


Dabei sei A eine globale Variable vom Typ 
PACKED ARRAY [0..7] OF CHAR. Wie der 
P-Code dieser Zeile aussieht, mag uns an 
dieser Stelle nicht so genau interessieren. 
Wir wissen, daß Pascal eine Kellersprache 
ist und die Parameter einer Prozedur auf 
den Stack geschoben werden, bevor die 
Prozedur aufgerufen wird. Es befinden 
sich also auf dem Stack ($0100-Bereich): 


2 

Adresse von Ä 

3 

1 

0 

60 <-- TOS (Top of Stack) 


Der dritte Parameter, die 3, ist der Index in 
die Variable A. Er ist meist Null, es sei 
denn, es wurde ein PACKED ARRAY OF 
CHAR als Quelle angenommen. Dann gibt 
der dritte Parameter den Index an, falls der 
Array indiziert wurde. Der Grund für die 
Einführung des unsichtbaren dritten Para- 
meters ist darin zu suchen, daß in UCSD- 
Pascal keine ungeraden Adressen über- 
geben werden können, da sich alles auf 
Wortgrenzen abspielt. 

Man beachte, daß der 6502-Stack nach 
unten wächst und das nächste PLA den 
Wert 60 vom Stack holen würde. Alle Para- 
meter sind hier 2 Bytes groß. Mit diesen 
Werten auf dem Stack trifft der P-Code- 
Interpreter auf den Befehl $9E, also GSP 
(Call Standard Procedure), mit dem nach- 
folgenden Parameter $05 (UNITWRITE). 
Nach einem kurzen Blick in die P-Code- 
Tabelle und dann in die CSP-Tabelle ver- 
zweigt der Interpreter ins RSP. Dort wird 
zuerst der Modus-Parameter vom Stack 
geholt. Die einzelnen Bits werden inter- 
pretiert und die entsprechenden Flags für 
DLE-Umwandlung, LF nach CR usw. ge- 
setzt. Dann werden die anderen Parame- 
ter in Zero-Page-Variablen abgespeichert. 
Ist die Länge kleiner oder gleich Null, so 
wird der UNITWRITE-Befehl abgebrochen, 
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und es wird zur Interpreter-Hauptschleife 
gesprungen. Im anderen Fall wird nun die 
Gerätenummer auf ihre Gültigkeit abge- 
checkt. Ist sie ungültig (z.B. 43 oder 160), 
so wird der I/O-Fehlercode 2 (Bad Device) 
in eine Variable geschrieben, die der Pro- 
grammierer mit der Funktion IORESULT 
abtesten kann. Schließlich wird getestet, 
um welches Gerät es sich handelt, also ob 
ein Diskettenzugriff, ein Zugriff auf ein 
User-Device oder ein Gerät ohne Block- 
Struktur vorliegt. Ein User-Device ist ein 
Gerät, das ein Programmierer mittels SY- 
STEM.ATTACH selbst anschließen kann, 
wenn er einen entsprechenden Treiber 
geschrieben hat. Danach wird zur entspre- 
chenden gerätebehandelnden Routine ge- 
sprungen: Bei einem User-Device zum 
selbst installierten Treiber, bei einem nor- 
malen Laufwerk zu den eingebauten Disk- 
Treibern, bei einem selbst angeschlosse- 
nen Laufwerk, wie z.B. einer RAM-Disk, 
zu dem entsprechenden RAM-Disk-Trei- 
ber. Bei einem Gerät ohne Block-Struktur, 
wie in unserem Beispiel, wird nun folgen- 
des gemacht: 

In Abhängigkeit von der Unitnummer wer- 
den die Adressen für die entsprechenden 
Treiber (Bildschirm, Tastatur, Drucker, 
Modem) in Zero-Page-Variablen abgelegt. 
Falls eine der Adressen OÖ ist, wie z.B. 
beim Lesen vom Gerät „Drucker“, wird 
ein IORESULT von 3 abgelegt (Illegal Re- 
auest). Ansonsten werden die Zeichen der 
Reihe nach gelesen oder geschrieben. 
Dabei werden alle gesetzten Flags berück- 
sichtigt, also das Ausgeben eines LF nach 
einem CR, DLE-Umwandlung und das Er- 
kennen von EOF bei einer Eingabe, was 
eine der Hauptaufgaben des RSP ist. Das 
RSP kann nicht von Assemblerprogram- 
men angesprungen werden, da es nicht 
als Unterprogramm vorliegt, sondern di- 
rekt zur P-Code-Interpreter-Hauptschleife 
zurückspringt. Die Treiber selbst liegen 
jedoch als Unterprogramme vor und kön- 
nen von einem Assemblerprogrammierer 
angesprungen werden. Dies bringt uns zur 
BIOS-Ebene. 





3. Die BIOS-Ebene 


Eines der großen Probleme bei der Einbin- 
dung von Assemblerprogrammen in Pas- 
cal war schon immer, daß es keinerlei 
Möglichkeit der Ein/Ausgabe im ÄAssem- 
blerprogramm selbst gab. Unter DOS 3.3 
war die Sache anders. Man mußte nur die 
schon wohlbekannten Adressen $36, $37, 
638, $39 kennen, um zu wissen, wohin 
man springen mußte, wenn man ein Zei- 
chen ein- oder ausgeben wollte. Um auf 
Diskette zu schreiben, sprang man in die 
RWTS, deren Adresse und geforderten 
Parameter man ebenfalls kannte. Auch 
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den Drucker konnte man bedienen, wenn 
man wußte, um welches Interface es sich 
handelte. 

In Pascal sind diese Aufgaben auch nicht 
weiter schwierig, wenn man nur die Adres- 
sen und die Parameter der Treiber kennt. 
Im Pascal werden die verschiedenartig- 
sten Interface-Karten für Drucker, 80-Zei- 
chen oder Modems erkannt, so daß es hier 
nicht ratsam erscheint, eigene Treiber für 
spezielle Karten zu schreiben, sondern die 
Treiber zu benutzen, die schon implemen- 
tiert sind. 

Das BIOS befindet sich gänzlich auf der 
Bank 2 der 16K-Karte. Da der P-Code- 
Interpreter sich auf der anderen Bank be- 
findet, welche normalerweise immer aktiv 
ist, muß für einen BIOS-Aufruf kurz umge- 
schaltet werden. Man muß dies aber nicht 
selbst erledigen. In der letzten Page befin- 
den sich Sprungbefehle zu allen BIOS- 
Funktionen. Bevor die entsprechende 
Funktion aufgerufen wird, wird auf Bank 2 
umgeschaltet und danach wieder auf Bank 
1. Die erste Tabelle mit Sprungbefehlen 
wird auch BIOS-BEFORE-FOLD-TABLE 
genannt. Sie liegt ab der Adresse $FFOO 
vor. Ab Adresse $FF59 steht die Tabelle, 
die auch BIOS-AFTER-FOLD-TABLE ge- 
nannt wird. Diese sollte man aber nicht 
anspringen, es sei denn, man möchte 
selbst das Bank-Switching übernehmen. 
Die beiden Adressen sind auch in den 
Zero-Page-Variablen $EC, $ED und $EE, 
$EF abgespeichert. Dies gilt sowohl für 
Pascal 1.1 als auch für Pascal 1.2. Tabelle 
1 zeigt die Adressen und die Bedeutung 
der BIOS-BEFORE-FOLD-TABLE. Nun ist 
es nicht mehr schwierig, von Maschinen- 
sprache aus z.B. einzelne Zeichen an den 
Bildschirm zu bringen. Wichtig ist nur, wel- 
che Parameter auf dem Stack und in den 
Registern liegen. Für alle Aufrufe gilt aber 
folgendes: Im X-Register sollte der Code 
für die Art des Aufrufs sein. Für diesen 


Code gilt 
0 = read 
1 = write 
2 hit 

A = status 


Nach dem Aufruf steht im X-Register das 
Ergebnis für IORESULT. Man kann davon 
ausgehen, daß nach einem BIOS-Aufruf 
alle Register zerstört sind. Braucht man sie 
nach einem Aufruf noch, müssen sie vor- 
her gerettet werden. Wir gehen alle Proze- 
duren durch und geben für jede wichtige 
Prozedur ein Beispiel an. 


$FF00: CONSOLE READ 

Ein Zeichen wird von der Tastatur gelesen, 
welches sich danach im Akkumulator be- 
findet. Da der Aufruf nicht über das RSP 
geht, müssen die Flags für die Sonderzei- 
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chen CTRL-S, CTRL-F und CTRL-8 sowie 
die speziellen Zeichen für den Betrieb oh- 
ne 80-Zeichenkarte selbst gesetzt wer- 
den. Die Flags befinden sich bei Pascal 1.1 
und 1.2 an der Stelle $BFiC. Die Variable 
nennt sich SPCHÄAR. Dabei gilt: 


BitO = 0: Die speziellen Zeichen für den 
AO-Zeichen-Bildschirm werden abge- 
fangen. 

Bit O = 1: Die speziellen Zeichen werden 
nicht abgefangen. 

Bit 1 = 0: Die Kontroll-Zeichen CTRL-S, 
CTRL-F und CTRL-8 werden abgefangen. 
Bit 1 = 1: Die Kontroll-Zeichen werden 
nicht abgefangen. 


Will man also ein reines Zeichen von der 
Tastatur lesen, muß man eine 3 (Bit 0 und 
1 gesetzt) in die Variable SPCHAR setzen. 
Vorher sollte man sich aber ihren alten 
Wert merken und nach dem Aufruf wieder 
restaurieren. Ein Beispiel für das Lesen 
eines Zeichens von der Tastatur ist in Li- 
sting 4 dargestellt. Es werden alle Tasten 
angenommen, da die Bits für die speziel- 
len Zeichen eingeschaltet werden. 

An dieser Stelle muß ich etwas zu den 
Listings Aff. sagen. Die Beispiele sind alle 
als Maschinenprozeduren geschrieben, 
die eine Definition 

‚PROC 

am Anfang tragen. Um sie auszuführen, 
geben Sie diese mit dem Editor ein und 
speichern sie unter einem Namen, z.B. 
TEST1.TEXT. Sie brauchen kein Pascal- 
Rahmenprogramm, um die Testprozedu- 
ren auszuführen. Es steht zwar in keinem 
Handbuch, aber Maschinenprozeduren 
können direkt ausgeführt werden. Sie 
müssen sie zuvor aber noch linken, damit 
der Linker einen ausführbaren Codefile 
daraus macht. Als Hostfile geben Sie 
TEST1 an, und bei der Frage nach den 
Library-Files und dem Map-File drücken 
Sie einfach die RETURN-Taste. Auf die 
Frage nach dem Output-File geben Sie 
TEST1 oder RETURN ein. In letzterem Fall 
wird der ausführbare Codefile unter dem 
Namen SYSTEM.WRK.CODE auf der 
Boot-Diskette angelegt. Der gelinkte 
Codefile ist ein reines Assemblerpro- 
gramm und sofort ausführbar. 


$FF03: CONSOLE WRITE 

Das Zeichen im Akkumulator wird an den 
Bildschirm ausgegeben. An welche Stelle 
das Zeichen kommt, hängt von den Inhal- 
ten der Speicherzellen CH (Cursor Hori- 
zontal) und CV (Cursor Verical) ab, die 
sich bei verschiedenen 80-Zeichenkarten 
an unterschiedlichen Plätzen befinden 
können. Meistens liegen sie in den 
„Screenholes“. Ist keine 80-Zeichenkarte 
angeschlossen, so liegt CH an der Stelle 


$00F4 und CV an der Stelle $00F5. Da die 
Ausgabe nicht über das RSP geht, müs- 
sen die DLE-Umwandlung sowie das Sen- 
den eines LF nach einem CR selbst über- 
nommen werden, falls dies erwünscht ist. 
Ein Beispiel für CONSOLE WRITE ist in 
Listing 5 gegeben. 


$FF06: CONSOLE INIT 

Das Eingabegerät wird initialisiert, was ei- 
nem UNITCLEAR (1) entspricht. Auf dem 
Stack müssen die Break-Adresse und die 
Syscom-Adresse liegen. Diese befinden 
sich im Inhalt der Speicherzellen $BF1D 
und $BFIE (IBREAK) sowie $BFiIF und 
$BF20 (ISYSCOM). Siehe auch Listing 6. 


$FF2A: CONSOLE STATUS 

Der Status des Eingabegeräts wird festge- 
stellt. Vor dem Aufruf müssen folgende 
Parameter auf den Stack gelegt werden 
(vgl. UNITSTATUS): 


Adresse des Puffers für die Information 
Kontrollwort 
Rückkehradresse <-- TOS 


Die Rückkehradresse kommt durch ein 
JSR automatisch auf den Stack (siehe Li- 
sting 7). 


$FF21: GRAPHIC WRITE 

Ein Zeichen sollte an den Hires-Schirm 
ausgegeben werden. Diese Routine ist 
weder iin Pascal 1.1 noch Pascal 1.2 imple- 
mentiert. Sie führt zu einem RTS. 


$FF24: GRAPHIC INIT 
Der Text-Modus wird eingeschaltet. 


$FF27: PRINTER READ 

Da vom Drucker nichts gelesen werden 
kann, führt ein Sprung zu dieser Adresse 
in ein RTS. 


$FF09: PRINTER WRITE 

Das Zeichen im Akkumulator wird an den 
Drucker geschickt. Da der Sprung über 
das Interface und nicht direkt an den Druk- 
ker geht, ist es optimal, auf diese Weise 
Zeichen an den Drucker zu schicken (In- 
terface-Unabhängigkeit). Für DLE-Um- 
wandlung und CR-Problem gilt das gleiche 
wie für CONSOLE WRITE. Beispiel siehe 
Listing 8. 


$FFOC: PRINTER INIT 

Der Drucker wird initialisiert. Dies gilt nur 
für serielle Karten, Firmware-Karten und 
Communication-Karten. Parallel-Inter- 
faces werden nicht angesprungen. 


$FF2D: PRINTER STATUS 


Der Status des Druckers wird festgestellt. 
Für die Parameter gilt das gleiche wie für 
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CONSOLE STATUS. Es werden lediglich 
die ersten beiden Bytes des Puffers auf 
Null gesetzt. 


$FF18: REMOTE READ 

Ein Zeichen wird von der Schnittstelle in 
Siot 2 gelesen, welches sich danach im 
Akkumulator befindet. Als Beispiel kann 
Listing 4 herangezogen werden. Es muß 
ledigich CONSOLE READ durch RE- 
MOTE READ ersetzt werden. 


$FF1B: REMOTE WRITE 

Das Zeichen im Akkumulator wird an die 
Schnittstelle in Slot 2 ausgegeben. ÄAnson- 
sten gilt das gleiche wie für PRINTER 
WRITE. Als Beispiel kann Listing 5 heran- 
gezogen werden, wenn CONSOLE WRITE 
durch REMOTE WRITE ersetzt wird. 


SFFIE: REMOTE INIT 
Die Schnittstelle in Slot 2 wird initialisiert. 
Es gilt dasselbe wie für PRINTER INIT. 


$FF33: REMOTE STATUS 

Der Status der Schnittstelle in Slot 2 wird 
festgestellt — es gilt das gleiche wie für 
PRINTER STATUS. 


$FF12: DISK READ 

Eine bestimmte Anzahl von Bytes wird von 
einer physikalischen Diskettenstation ge- 
lesen. Auf dem Stack müssen sich folgen- 
de Parameter befinden (vgl. UNITREAD): 


Modus 

Blocknummer 

Länge 

Pufferadresse 
Laufwerksnummer 
Rückkehradresse <-- TOS 


Der Modus hat hier keine Bedeutung, die 
Länge kann nicht größer als 32767 sein. 
Für die Laufwerksnummer gilt folgende 


Beziehung: 
0 = #4: 
1=#5: 
2= #11: 
3= #12: 
4==#9: 
5= #10: 


Die Rückkehradresse kommt durch ein 
JSR $FF12 automatisch auf den Stack. Ein 
Beispiel für DISK READ und DISK WRITE 
ist in Listing 9 gegeben. 


$FFOF: DISK WRITE 

Eine bestimmte Anzahl von Bytes wird auf 
eine physikalische Diskettenstation ge- 
schrieben. Für die Parameter gilt das glei- 
che wie für DISK READ. Die Länge sollte 
durch 256 teilbar sein (vgl. UNITWRITE). 
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$FF15: DISK INIT 

Es wird getestet, ob sich ein Disk-Interface 
im durch den Akkumulator angegebenen 
Slot befindet. Falls dies nicht der Fall ist, 
wird im X-Register der IORESULT 9 zu- 
rückgegeben, O sonst. Für die Slotnum- 
mern gelten folgende Zuweisungen: 

Slot 6: Akku = 0 

Slot 5: Akku = 1 

Slot 4: Akku = 2 


$SFF30: DISK STATUS 

Der Status eines Laufwerks wird be- 
stimmt. Für die Parameter gilt das gleiche 
wie für CONSOLE STATUS. Die zurück- 
gegebene Information entspricht der 
durch UNITSTATUS erhaltenen Informa- 
tion. 


$FF36: CONSOLE CHECKING 

Die Tastatur wird abgefragt. Es müssen 
keine Parameter übergeben werden. Ein 
Aufruf zerstört keine Register und kann 
benutzt werden, um es in rechenintensi- 
ven Programmen dem Benuizer zu er- 
möglichen, Zeichen in die Tastatur-Warte- 
schlange einzufügen. CONSOLE CHEK- 
KING wird bei jeglicher Ein/Ausgabe vom 
BIOS aufgerufen. Ein Assemblerprogram- 
mierer wird allerdings gebeten, zur Adres- 
se $BFOA zu springen, damit sicherge- 
stellt ist, daß CONSOLE CHECKING im- 
mer korrekt aufgerufen wird, da sich des- 
sen Adresse einmal ändern könnte. Die 
Applestuff-Unit KEYPRESS ruft CONSO- 
LE CHECKING auf. 


SFF39: USER READ/WRITEI/INIT/ 
STATUS 
Bei jeder Ein/Ausgabeoperation von 
selbst angeschlossenen Geräten wird die 
Adresse $FF39 angesprungen. Das X-Re- 
gister muß den „read/write/init/status” - 
Code wie oben beschrieben enthalten. In 
Abhängigkeit des Aufrufs müssen die Pa- 
rameter wie bei DISK READ, DISK WRITE, 
DISK INIT und DISK STATUS auf dem 
Stack vorhanden sein. Im Akkumulator 
muß sich die Gerätenummer befinden, die 
von 128 bis 143 laufen kann. Die ÄAdres- 
sen für die Treiber müssen sich ab der 
Adresse $FE80 (jeweils drei Bytes) befin- 
den, z.B. 
FE8O: 4AC 00 C2 ;JMP $C200 
für ein Gerät mit der Unitnummer 128, 
dessen Treiber sich im RAM in Slot 2 
befindet (wie z.B. eine Maus). 


$FF3C: PSUBDRIVE 

Pseudo-Disks (RAM-Disks) können ange- 
schlossen werden, wenn die Anfangs- 
adresse des Treibers eine der normalen 
Disknummer-Vektoren ab Adresse $FEBO 
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ersetzt. Dann wird vom RSP die Adresse 
$FF3C angesprungen, um diesen neuen 
Treiber zu handhaben. Der Anschluß neu- 
er Treiber soll aber nicht Thema dieses 
Artikels sein, das würde hier zu weit füh- 
ren. Es sei hier nur gesagt, daß im Akku- 
mulator die Unitnummer stehen muß, im 
Y-Register die doppelte Unitnummer und 
im X-Register wie üblich der „read/write/ 
init/status"-Code. 


In eigener Sache 


Zwei Dinge möchte ich noch nachtragen. 
Zum Ersten bedanke ich mich für die posi- 
tive Resonanz auf meine Serie, die sich in 
vielen Leserbriefen wiederfindet. An die- 
ser Stelle muß ich mich auch dafür ent- 
schuldigen, daß Sie, liebe Peeker-Leser, 
zwei Monate auf weitere Teile meiner Se- 
rie verzichten mußten. Ich hatte aus meh- 
reren Gründen wie das Schreiben eines 
Buches und das Lernen auf wichtige Prü- 
fungen keine Zeit, daran weliterzuarbeiten, 
werde aber versuchen, keine Lücken 
mehr im Peeker zu hinterlassen. 

Die zweite Sache betrifft den Leserbrief 
von Herrn Adrian Meissner aus Heft 12/ 
85. Herr Meissner vermißt in meinen Arti- 
keln Hinweise auf die Quellen meines 
Wissens. Als Bücher werden von mir le- 
diglich die beiden Pascal-Manuals der Fir- 
ma Apple genannt. Leider muß ich zuge- 
ben, daß ich tatsächlich keine andere Lite- 
ratur kenne oder benutzt habe, mit deren 
Hilfe ich mir mein Wissen aneignen konn- 
te. Seit etwa vier Jahren arbeite ich mit 
dem Apple-Pascal-Betriebssystem. Nach- 
dem die Handbücher nicht mehr genü- 
gend Information lieferten, untersuchte ich 
den P-Code-Interpreter und baute mir ei- 
nen P-Code-Disassembler, mit dem ich 
Codefiles genau untersuchen konnte. 
Nach vielen Monaten Übung war es mir 
möglich, beliebige Codefiles zurückzu- 
übersetzen, so daß Ich mir Source-Files 
erstellen konnte. Als erstes übersetzte ich 
den File SYSTEM.PASCAL, der mir einen 
tiefen Einblick in das Wesen des in Pascal 
geschriebenen Pascal-Systems erlaubte. 
Später untersuchte ich den P-Code-Inter- 
preter von Pascal 1.2 (128K-Version), auf 
dessen Wissen der Cruncher von Teil 3 
aufbaut. Ich bedauere, daß ich, was Litera- 
tur angeht, Herrn Meissner nicht weiter- 
helfen kann und werde versuchen, in mei- 
ner Serie die größten Löcher zu stopfen. 
Wenn Sie spezielle Fragen haben, dann 
schreiben Sie doch eine kurze Notiz an die 
Redaktion. Ich werde versuchen, die Fra- 
gen in Gebiete einzuteilen, so daß sie in 
einem Teil meiner Serie bearbeitet werden 
können. 

Hinweis: Im nächsten Beitrag soll der Auf- 
bau von Files dargelegt werden. 
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Beispielprogramme 


Listing 1: 


program Listingl; 

const CONSOLE = 1; 

var Se String, 
I: integer; 


begin {Listingl} 

S:= 'Dies ist ein kurzer Text. '; 

S [length (S}]:= chr {13}; 

for I:= 1 to 40 do 

unitwrite (CONSOLE, S [1], length (S), 0, 32) 
end {Listingl}. 


Listing 2: 
program Listing2; 
const SYSTERM 


PRINTER 
var GC: char; 


2 
6; 


begin {Listing2} 
unitclear (6); 
if IOresult <> O 
then writeln 


(chr (7), 'Kein Drucker angeschlossen') 
| else 
| begin 
| | G--schr (0); 
repeat 


unitread (SYSTERM, C, 1, 0, 60); 
unitwrite (PRINTER, C, 1, 0, 60); 
writeln (ord (C)) 
until ord (C) = © 
end {else} 
end {Listing}. 


Listing 3: 


program Listing: 


const CONSOLE = 1]; 
SYSTERM = 2; 
GRAPHIC = 3; 
| DIKl = 4; 
DISK2 = 5: 
! PRINTER = 6; 
| REMIN u 
| REMOUT = 8; 
N DISK = 98; 
DISK6 = 10; 
DISK3 = 11; 
DISK4 4 = 12; 

| var Unitnum : integer; 

| Dummy : char; 


begin {Listings} 
| writeln ('Folgende Geraete', 
'sind angeschlossen: '); 
writeln; 
| for Unitnum:= CONSOLE to DISK4 do 
| begin 
if Unitnum in [DISKl, DISK2, 
| DISK3, DISK4, DISK5S, DISK6] 
| then unitread (Unitnum, Dunay, 1) 
else unitclear (Unitnun}; 
if IOresult = O then 
begin 
write ('#', Unitnum: 2, '='); 
case Unitnum of 
CONSOLE: writeln ('CONSOLE:'); 
| SYSTERM: writeln ('SYSTERM:'); 
| GRAPHIC: writeln ('GRAPHIC:'}; 
| DISKl : writeln ('DISK1:'}; 
DISK2 : writeln ('DISK2:'); 
PRINTER: writeln Ü'"PRINTER:'); 
REMIN : writeln ('"REMIN:')}; 
REMOUT : writeln ('REMOUT:'); 
DISK5 : writeln ("DISKa:!),; 
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DISK& ; writeln ('DISK6:'); 
DISKk3 = writeln ('DISK3:}, 
DISK4 : writeln ('DISK4:') 
end {case} 
end {if} 
end {for} 
end {Listings}. 


Listing 4: 


‚PROC TEST 

CONSOLE_READ .„EQU OFFOO 

SPCHAR ‚„EQU OBFI1C 

SAVESPCHAR ‚EQU 00 

LETTER ‚EQU 01 
LDA SPCHAR :rette altes SPCHAR 
STA SAVESPCHAR 
LDA #03 ‚alle Flags gesetzt 
STA SPCHAR 
LDX #00 :X=0 => read 
JSR CONSOLE_READ 
STA LETTER ‚Zeichen abspeichern 
LDA SAVESPCHAR ;alte SPCHAR zurueckspeichern 
STA SPCHAR 
RTS 
„END 


640 KByte-Drives für den Apple //c!! 


@ 514- od. 31/2-Zoll-Format (Teac FD55/35-F) 

@ FD55-F umschaltbar auf 35/40 Track 

® Anschluß an die externe Laufwerkbuchse 

@ Durch Einbauplatine (kein Löten) 640 KByte im Direktzugriff 

@ Einfache Anpassung für DOS 3.3, UCSD-Pascal und PRODOS 
durch menügeführten Patch 

® Anpassung von CP/M in Verbindung mit einer Z 80-Zusatzplatine 
in Vorbereitung 

® anschlußfertig im Gehäuse . . . . . ... . DM 1090,— 


Festplatten für Apple Il (//e) 


@ 5'/4 Zoll-Format (Slimline) 

@ Booten direkt von der Festplatte in DOS 3.3, UCSD-Pascal, 
PRODOS und CP/M 2.2 / 3.0 

@ Gemischtbetr. mit 35/40/80/160 Track-Drives 

@ Copy- und Install-Programme im Lieferumfang 

® Umfangreiches Manual 

® z. B. 10 MB incl. Netzteil u. Conir., 
anschlußfertig an Ihren Apple . . . . ..... DM 3380,— 


640 KByte-Drives für Apple Il (//e) 


@ 5'/4- od. 3'%2-Zoll-Format (Teac FD55/35-F) 

@ FD55-F umschaltbar auf 40 Track (Apple kompatible) 

® Installationssoftware für DOS 3.3, UCSD-Pascal, CP/M 2.2, 
CP/M 2.23 (60K), PRODOS, AP22, ALS CP/M+ 

@ Umfangreiches Handbuch 

® Anschlußfertige Auslieferung incl. Contr. und 2 Drives 

@ Diskstation 55ll (2 Teac FD55-F, 1.2MB) . . . DM 1350,— 

@ Diskstation 351l (2 Teac FD35-F,1.2MB) . . . DM 1478,— 


80 Zeichen + 64 K für Apple //e 


@ und jetzt hinsetzen . . . . DM 138,— 
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Listing 5: 


‚PROC TEST2 


CONSOLE_WRITE .EQU 
COLS . EQU 
LINES  EQU 

LDA 
| STA 
| $0 LDA 

STA 
| $1 LDX 

LDA 

JSR 

DEC 

BNE 

LDX 

LDA 

JSR 

LDX 

LDA 

JSR 

DEC 

BNE 

RTS 

END 


Listing 6: 


#01 ;X= 1 => write 
+ryN 
CONSOLE_WRITE 
COLS 

$1 

#01 

#13. 
CONSOLE_WRITE 
#01 

#10. 
CONSOLE_WRITE 
LINES 

$0 


„PROC TESTS 


CONSOLE_INIT .EQU 


OFFOS 


IREAK .EQU OBFID 


ISYSCOM -EQU 
LDA 
FPHA 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
LDX 
JSR 
RTS 
‚END 


Listing 7: 


OBFIF 
IBREAK+1 


;‚Break-Adresse auf Stack 
IBREAK 
ISYSCOM+l ‚Syscom-Adresse auf Stack 
ISYSCOM 


#02 ‚;x=2=> init 
CONSOLE_INIT 


.PROC TEST4 


CONSOLE_STATUS .EQU 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
PHA 
LDX 
JSR 
RTS 


PUFFER „BLOCK 8 
‚WORD PUFFER 


PUFFERADR 
„END 


Listing 8: 


OFFZA 
PUFFERADR+1 ;Puffer-Adresse auf Stack 


PUFFERADR 

+00 ‘:Kontrollwort auf Stack 
+04 ‘X= 4 => status 
CONSOLE_STATUS 


‚Ergebnis in Puffer 


‚PROC TEST5 


PRINTER_WRITE .EQU 
COLS „EQU 
LINES .EQU 
LDA 
STA 
$0 LDA 
STA 
$1 LDX 
LDA 
JSR 
DEC 
BNE 
LDX 
LDA 
JSR 
LDX 
LDA 
JSR 
DEC 
BNE 
RTS 
‚END 
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OFFO9 

00 

01 

+20. 

LINES 

#40. 

COLS 

#01 :X= 1 => write 
zUTyH 
PRINTER_WRITE 
COLS 

$1 

+01 

#13. 
PRINTER_WRITE 
#01 

+10. 
PRINTER_WRITE 
LINES 

$0 


er ucsd 


Listing 9: 


‚PROC TEST6 
DISK_READ .„EQU OFF12 
DISK_WRITE .EQU OFFOF 

LDA 0C050 

LDA 06057 

LDA #0FF 

JoSR EILL 

LDA #00 ;Modus 

PHA 

PHA 

PHA ;Laufwerk 0 = Unit #4: 
PHA 

LDA #20 

PHA 

LDA #00 

PHA 

LDA #20 

PHA 

LDA #00 

PHA 

LDA #01 :Bloeknumner = 264 

PHA ‚Achtung! Diskette 
LDA #08 ;muss an dieser Stelle 
FHA ;{rei sein 

JSR DISK_WRITE 

LDA #00 

JSR FILL 

LDA #00 ;Modus 

PHA 

PHA 

PHA ‚Laufwerk 0 = Unit #4: 

PHA 
LDA #20 
PHA 
LDA #00 
PHA 
LDA #20 
PHA 
LDA #00 
PHA 

LDA #01 

PHA 

LDA #08 

PHA 

JSR DISK_READ 

LDA 0C051 

RTS 
DEST ‚EQU 00 
EILL LDY 200 

STY DEST 

LDX #20 

STX DEST+L 
$0 STA (DEST),Y 

INY 
BNE $0 
INC DEST+L1 

DEX 

BNE $0 

RTs 

‚END 


:Grafikmodus 


:Puffer bei $2000 


;Laenge = $2000 


;:Puffer bei $2000 


;Laenge = $2000 


:Blocknummer = 264 


: Textmodus 


Tabelle 1: 
Einsprungadressen für BIOS-Aufrufe 


FF0O: CONSOLE READ 
FF03: CONSOLE WRITE 
FFO6: CONSOLE INIT 
FF09: PRINTER WRITE 
FFOC: PRINTER INIT 
FFOF: DISK WRITE 
FF12: DISK READ 
FF15: DISK INIT 
FF18: REMOTE READ 
FF1B: REMOTE WRITE 
FFlE: REMOTE INIT 
FF21: GRAPHIC WRITE 
FF24: GRAPHICG INIT 
FF27: PRINTER READ 
FF2A: CONSOLE STATUS 
FF2D: PRINTER STATUS 
FF30: DISK STATUS 
FF33: REMOTE STATUS 
FF36: CONSOLE CHECKING 
FF39: USER READ/WRITE/INIT/STATUS 
FFSC: PSUBDRIVE 
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yan-Pascal 


Grundkurs 


von Ulrich Stiehl 





1. Betriebssystem 


Definition: Kyan-Pascal ist eine Standard-Pas- 
cal-Implementierung für den Apple Il+/e/c, die 
aus dem Pascal-Quelltext zunächst einen As- 
sembler-Zwischentext und daraus dann einen 
6502-Objektcode erzeugt, der unter dem Be- 
triebssysiem ProDOS in Verbindung mit der 
Runtime-Library lauffähig ist. 


Ab 1.2.86 wird die Version 2.0 ausgeliefert. 
Dieser Beitrag basiert noch auf der Version 1.2, 
doch werden hier nur Dinge behandelt, die auch 
für die neue Version gelten werden. 

Der Grundkurs, dem im nächsten Peeker ein 
Aufbaukurs folgen wird, ist eine stark gestraffte, 
kyan-spezifische Version des „Pascal-Kom- 
paktkurses" aus Heft 12/85, S. 33-48. Aus 
Platzgründen mußten Querverweise zu UCSD- 
und Turbo-Pascal sowie zu Applesoft entfallen. 
Wer bislang noch niemals in Pascal program- 
miert hat, aber bereits Applesoft kennt, sollte 
deshalb zusätzlich den „Kompaktkurs” zur 
Hand nehmen. Im übrigen kann man auf die ein- 
schlägigen Lehrbücher zurückgreifen, denn 
Kyan-Pascal ist eine getreuliche Standard- 
Pascal-Implementierung. 


1.1. Konfiguration 


Eine Kyan-Arbeitsdiskette sollte mindestens 
folgende Dateien enthalten: 

PRODOS: Kyan-Pascal wird mit der jeweils 
neuesten ProDOS-Version ausgeliefert, z.Zt. 
Version 1.1.1. 

HELLO.SYSTEM: Dies ist ein kleines Verbin- 
dungsprogramm (Hauptmenü), das nach dem 
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Booten von PRODOS geladen wird und den 
Wechsel zwischen ED, PC und anderen Sy- 
stemprogrammen ermöglicht. 

ED/E80: Kyan-Editor für 40-Zeichenbildschirm 
(ED) oder lle/c- bzw. Videx-80-Zeichenkarte 
(E80). 

PC: Pascal-Compliler. 

LIB: Die Runtime-Library wird von dem Objekt- 
code eines compilierten Kyan-Programms auto- 
matisch mitgeladen. 


1 Wenn Sie einen Apple II+ mit einem 140K- 
Laufwerk besitzen und zusätzlich noch zwi- 
schen Kyan-Pascal und Applesoft wechseln 
wollen, empfehlen wir folgende Konfiguration 
Ihrer Kyan-Arbeitsdiskette: 

PRODOS 

BASIC.SYSTEM (für STARTUP) 

HEEES- SYSTEM 

STARTUP (für Applesoft) 

ED oder E80 

BG 

LIB 

Sie haben dann noch genügend Platz für in 
Arbeit befindliche Kyan-Programme. 


2 Wenn Sie einen Apple Ilc oder Ile mit 64K- 
Karte haben, so empfehlen wir folgende Konfi- 
guration: 

PRODOS 

BASIC.SYSTEM (für STARTUP) 
HELLO.SYSTEM 

STARTUP (für PROFID) 

PRÖFID 

E80 

PC 

LIB 

Mit unserem Kopierprogramm PROFID aus 
„ProDOS für Aufsteiger, Bd. 2" können Sie 
vollautomatisch die Dateien E80, PC und LIB 
auf die 64K-Karte kopieren, auf der dann noch 
ca. 20 Blocks für Kleinstprogramme frei sind. 
Größere Programme müssen Sie weiterhin auf 
der physischen Diskette compilieren. Alternativ 
können Sie auch PC auf der physischen Disket- 
te belassen, so daß auf der 64K-Karte Großpro- 
gramme compilierbar sind. 


3 Wenn Sie eine RAM-Karte mit mindestens 
128K besitzen, haben Sie ausgesorgt. Dann 
können Sie alle Systemprogramme einschließ- 
lich der in Arbeit befindlichen Quelldateien mit 
PROÖFID auf die RAM-Karte kopieren. Der 
Wechseln zwischen E80 und PC sowie das 
Compilieren selbst sind sehr schnell. Wer zu- 
sätzlich Besitzer einer Accelerator- oder Spee- 
demon-Karte ist, gelangt in einen wahren Ge- 
schwindigkeitsrausch. 

Eine RAM-Karte ist für die Programmentwick- 
lung effizienter als ein zweites Laufwerk. 
Selbstverständlich können Sie auch ein größe- 
res Laufwerk oder eine Festplatte verwenden. 


1.2. Programmwechsel 


Bevor Sie mit Kyan-Pascal beginnen, sollten 
Sie sich etwas mit ProDOS im allgemeinen und 
mit dem Präfix-Befeht im besonderen vertraut 
machen (z.B. „ProDOS für Anfänger“ aus 
Peeker, Hefte 2/84 und 4/85). Nehmen wir an, 
Ihre Arbeitsdiskeite heiße „KYAN" und Ihre 
RAM-Disk „RAM“. Dann können Sie vom BA- 
SIC.SYSTEM aus mit 
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-/KYAN/HELLO.SYSTEM 

das Verbindungsprogramm starten (mit Strich- 
befehl!). Danach sehen Sie das Prompt-Zei- 
chen und den Cursor rechts daneben, also 

>LD] 

Immer wenn dies der Fall ist, befinden Sie sich 
im sog. Hauptmenü, von dem aus Sie durch 
Eingabe eines Namens (ohne Strichbefehll), 
ZB. 

>/KYAN/PC 

>/RAM/ED 

>/KYAN/PROGRAMM.O 

die Systemprogramme PC, ED, E80 oder eines 
Ihrer compilierten Pascal-Programme (mit Zu- 
satz „.O“) starten können. Wenn Sie gerade ED 
oder PC verlassen haben und nunmehr ein 
Nicht-Kyan-Programm, z.B. das BASIC.SY- 
STEM, starten wollen, so müssen Sie dies aus 
speicherltechnischen Gründen indirekt über das 
HELLO.SYSTEM tun, also zuerst 
>/KYAN/HELLO.SYSTEM 

und direkt danach 

>/KYAN/BASIC.SYSTEM 

Die Kyan-Systemdiskette enthält ein zusätzli- 
ches Programm namens CD (= change directo- 
ry), mit dem Sie ein neues Präfix festlegen 
können, z.B. 

>/KYAN/CD 

&/RAM/ 

=PC 

Danach können Sie so lange auf das Präfix 
„/RAM/“ verzichten, bis Sie wieder auf die 
physische Diskette „/KYAN/" zugreifen wollen. 


1.3. Editor 


Der Kyan-Editor, der z.B. mit 

>/KYAN/ED oder 

>/RANV/ESO 0.4. 

gestartet wird, ist ausgesprochen komfortabel 
und leicht zu erlernen. Der Editorspeicher um- 
faßt ca. 39.000 Zeichen. Nach dem Start über 
z’E. 

>/KYAN/E8O 

sehen Sie das Editor-Menü und müssen nun 
zunächst den Namen des Quelltextes einge- 
ben. Für ein neues Programm erfinden Sie ei- 
nen Namen, z.B. 

/KYAN/DEMO mit Präfix oder 

DEMO ohne Präfix. 

Danach gelangen Sie in den eigentlichen Editor. 
Für die ersten Experimente genügt es, wenn 
Sie sich auf einige wenige Befehle be- 
schränken: 


Hochpfeil: Cursor nach oben 
Tiefpfeil: Cursor nach unten 
Rechtspfeil: Cursor nach rechts 
Linkspfeil: Cursor nach links 

Del: Zeichen löschen von rechts 
Ciri-G: Zeichen löschen von links 
Ctri-T: Sprung zum Textanfang 
Ciri-V: Sprung zum Textende 
ESC: zurück zum Editor-Menü 


Sie befinden sich — wie beim Applewriter — 
permanent im Einfügemodus, d.h. alles was Sie 
tippen, wird an der momentanen Cursorposition 
eingefügt. 

Der Kyan-Editor ist zwar ein Full-Screen-Editor, 
doch sollte eine Länge von 80 Zeichen/Zeile 
normalerweise nicht überschritten werden. 
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Mit ESC können Sie jederzeit in das Editor- 
Menü zurück. Von dort können Sie über 

X (eXit with save) 

Ihren Quelltext speichern und den Editor ver- 
lassen. 

Der Editor hat noch zahlreiche andere Funktio- 
nen wie das Suchen und Ersetzen usw., worauf 
jedoch an dieser Stelle nicht eingegangen wird, 
weil wir mit einer Erweiterung der Befehle bei 
Version 2.0 rechnen. 

Dem Listing KYANKURS kann man entnehmen, 
daß im Editor 6502-Quelltexte in den Pascal- 
Quelltext eingefügt werden können. Wie dies 
vor sich geht, wird im nächsten Peeker ausführ- 
lich beschrieben. 





1.4. Compiler 


Nehmen wir an, Sie hätten als Pascal-Neuling 
im Editor das Progamm 


PROGRAM DEMO; 
BEGIN 
Writeln ('’The real danger is not'); 
Writeln ('that computers will begin’); 
Writeln ('to think like men, '); 
Writeln ('but that men will begin'); 
Writeln ('to think like computers,'); 
Writeln ('Sydney J. Harris’) 
END 


eingegeben und unter dem Namen „/KYAN/ 
DEMO“ gespeichert. Danach starten Sie mit 
>/KYAN/PC 

den Pascal-Compiler, der Sie nun nach dem 
Namen des Quelltextes fragt, worauf Sie 
>/KYAN/DEMO 

eingeben. Die Compilierung erfolgt dann auto- 
matisch. Nun können Sie mit 
>/KYAN/DEMO.O 

Ihren compilierten Objektcode „DEMO.O" star- 
ten und testen. Compiliertes Programm und 
Daten können zusammen über 36.000 Bytes 
umfassen ($2000-$AFFF). 

Auf die Darstellung der einzelnen Compiler- 
Optionen wird hier verzichtet, weil wir bei der 
Version 2.0 mit erweiterten Optionen rechnen. 


2. Grunddefinitionen 


2.1. Namen 


Namen sind Bezeichner für Befehle, Variablen 
usw. Des näheren unterscheidet man die reser- 
vierten Wörter, z.B. AND, OR, END usw., von 
den vordefinierten Bezeichnern oder Stan- 
dardbezeichnern, z.B. ABS, CHR usw., da letz- 
tere von der jeweiligen Pascal-Implementierung 
abhängen. Den Variablen usw. kann man eige- 
ne Namen geben, die dann benutzerdefinierte 
Bezeichner heißen. 

Benutzerdefinierte Bezeichner müssen mit ei- 
nem Groß- oder Kleinbuchstaben anfangen, 
dürfen danach jedoch auch Ziffern aufweisen. In 
Kyan-Pascal sind die ersten 8 Zeichen eines 
Bezeichners signifikant. Sonderzeichen ($, % 
usw.) und der Unterstreichungsstrich (_) sind 
nicht zulässig. 

Kyan-Pascal kennt Konstanten-, Variablen-, 
Prozedur-, Funktions- und Programm-Bezeich- 
ner, von denen in diesem Grundkurs folgende 
behandelt werden: 


<% 


PROGRAM, PROCEDURE 


CONST, MAXINT 
VAR 


INTEGER, REAL, CHAR 


EXP, LN 

COS, SIN, ARCTAN 
SQR, SORT 

ABS, ROUND, TRUNC 


PRED, SUCC 
CHR 


READ, READLN 
WRITE, WRITELN 


IF-THEN, IF-THEN-ELSE 
WHILE-DO, REPEAT-UNTIL 
FOR-TO-DO, FOR-DOWNTO-DO 


CASE-OF-END 


DIV, MOD 
NOT, AND, OR 


2.2. Begrenzer 


In Pascal gibt es Sonderzeichen, die entweder 
bestimmte Funktionen erfüllen (z.B. die mathe- 
matischen Operatoren +, -, *, /) oder aus- 
schließlich der Begrenzung von Namen dienen 
(z.B. Leertaste und Return). Operatoren sind 
automatisch gleichzeitig Begrenzer. Einerseits 
läßt der Editor eine frei formatierte Eingabe des 
Quelltextes zu. Andererseits reagiert der Com- 
piler etwas „unwirsch" auf fehlende Begrenzer. 
Ein Beispiel („WRITELN“ = „write a line” istein 
Befehl, der eine Zeile oder hier ein Return aus- 
gibt): 

(1) WRITELN; WRITELN 

(2) WRITELN; 

WRITELN 

(3) WRITELN;WRITELN 

(4) WRI 

TELN; WRI TELN 

Befehle werden in Pascal durch „;" getrennt. 
Nach dem „;" kann man zusätzlich eine Leerta- 
ste (1) oder ein Return (2) einfügen oder auf 
beides verzichten (3). Man darf jedoch nicht 
mitten in ein Befehlswort ein Return oder eine 
Leertaste einfügen (4). 

Begrenzer lassen sich einteilen in: 
Einzeichen-Begrenzer: + -x/=<>:.,;, 
Doppelzeichen-Begrenzer: := .„. <= >= <> 
Paarzeichen-Begrenzer: {-} (-) [-] - 
Standard-Begrenzer: (Leertaste, Return) 

Man merke sich: 

1 Ein Name oder ein Doppelzeichen-Begrenzer 
darf niemals in sich durch einen Standard-Be- 
grenzer unterbrochen werden, z.B.: 

A := 1 ist richtig. 

A :O= 1 ist falsch. 

2 Ein Name muß stets links und rechts begrenzt 
werden, z.B. 

UIDIVD. 


2.3. Programmaufbau 


Ein Pascal-Programm besteht aus folgenden 
Teilen: 

(1) Kopf (PROGRAM) 

(2) Labels (LABEL) 

(3) Konstanten (CONST) 
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(4) Typen (TYPE) 

(5) Variablen (VAR) 

(6) Prozeduren (PROCEDURE) 

(7) Funktionen (FUNCTION) 

(8) Hauptprogramm 

Die Komponenten 1 und 8 sind obligatorisch, 
alle anderen fakultativ. Jede Komponente außer 
dem Hauptprogramm selbst beginnt mit einem 
reservierten Won. In Kyan-Pascal muß die Rei- 
henfolge strikt eingehalten werden; außerdem 
darf beispielsweise das reservierte Wort „VAR 
nur ein einziges Mal vorkommen. 


2.3.1. Kopf und Programm 


PROGRAM DEMO1; {1} 
BEGIN {8} 

WRITELN ('Anfang'); 
WRITELN ('Ende') 
END. 


Der Kopf (1) besteht aus dem reservierten Wort 
„PROGRAM“, gefolgt von einem benutzerdefi- 
nierten Programmnamen, gefolgt von einem 
„‚, hier also 

PROGRAM DEMOT; 

Das eigentliche Programm oder genauer Haupt- 
programm (8) beginnt mit dem Wort „BEGIN 
und endet mit dem Wort „END“, gefolgt von 
einem „.“. Wenn der Compiler auf „END. mit 
Punkt stößt, hört er mit der Compilierung auf, 
Zwischen „BEGIN“ und „END.“ stehen die 
einzelnen Befehle, die voneinander durch „;" 
getrennt werden. Voreinem „END.“ ist deshalb 
das Semikolon entbehrlich. 


Die Befehle eines Pascal-Programms werden 
im einfachsten Fall sequentiell abgearbeitet, al- 
so hier erst 

WRITELN ("Anfang'); 


und dann 

WRITELN (’Ende’) 

„BEGIN" und „END“ haben eine Art Ein- 
klammerungsfunktion („Verbundanweisung”), 


worauf weiter unten eingegangen wird. 
Hinweis: Kommentare werden eingeklammert, 
und zwar so {Kommentar} oder so (*Kom- 
mentark). 


2.3.2. Konstanten und Variablen 


PROGRAM DEMO2; {1} 
CONST {3} 

IK = 10; 

RK = 1,2345; 
CK = 'x': 
VAR {5} 

IV: INTEGER; 
RV: REAL; 
CV: CHAR: 
BEGIN {8} 
WRITELN (IK) 
END. 


Bei diesem erweiterten Demo werden zusätz- 
lich Konstanten (3) und Variablen (5) definiert. 


Die Konstantendefinition beginnt mit dem 
Wort „CONST“, gefolgt von einer oder mehre- 
ren Gleichsetzungen, die jeweils durch „;" ab- 
geschlossen werden (auch die letzte Gleichset- 
zung). Gleichsetzungen haben links vom „=" 


einen benutzerdefinierten Bezeichner und 
rechts vom „=" einen Wert. Im einzelnen gilt 
(Beispiele): 

= 10; 


wird als Integer-Zahl erkannt. 


R= 100: 

wird als Real-Zah! erkannt. 

GN, 

wird als Char = „Character“ = Einzelzeichen 
erkannt. 


Bei ganzen Zahlen, die Real-Zahlen sein sollen, 
muß man also einen Dezimalpunkt einfügen, 
damit der Compiler weiß, ob eine Integer- oder 
eine Real-Zahl gemeint ist. 


Die Variablendefinition beginnt mit dem Wort 
„VAR“, gefolgt von einer oder mehreren Typ- 
bestimmungen, die jeweils durch „;" abge- 
schlossen werden (auch die letztel). Typbe- 
stimmungen haben links vom „:“ einen benut- 
zerdefinierten Bezeichner und rechts vom „:" 
eine Datentypbezeichnung. Es gibt u.a. folgen- 
de elementare Datentypen in Kyan-Pascal: 

R: REAL; 

Fließkomma-Zahl im Bereich +/-1E+/-98: 
13stellige Mantisse mit 2stelligem Exponenten 
= intern 8 Bytes (BCD). Beispiel: 
-1.234567890123E+99 

I: INTEGER; 

Ganzzahl mit Vorzeichen im Bereich +/-32767 
= intern 2 Bytes. 

G: CHAR; 

Einzelnes ASCII-Zeichen, normalerweise mit 
Bit 7 off = intern I Byte: 


Wenn mehr als eine Variable desselben Typs zu 
deklarieren ist, so kann man die Kurzform ver- 
wenden: 

ABGB BEA 

Die Bezeichner werden hier durch Kommas 
getrennt, 


In Pascal müssen grundsätzlich alle Konstanten 
und Variablen vor deren Benutzung „deklariert" 
werden, und zwar bereits vor dem ersten „BE- 
GIN“. Dies gilt auch für Laufvariablen von FOR- 
Schleifen. 


Abschließend sei auf die Unterschiede zwi- 
schen „=", „:“ und „;=" eingegangen: 

@® „=" wird u.a. erstens bei Konstantendeklara- 
tionen und zweitens bei Vergleichen benutzt, 
z.B: 


CONSTK = 10; 

ER OTHENFE 

® ‚:“ wird u.a. bei Variablendeklarationen be- 
nutzt, z.B. 

VAR R: REAL; 

@ „;=" wird bei Wertzuweisungen benutzt, z.B. 
R := 123.456; 


(Hinweis: Strings oder Zeichenketten werden in 
dieser Einführung ausgeklammert, da sie als 
ARRAY OF CHAR definiert werden müssen und 
die Verwendung von Include-Dateien für die 
Befehle CONCAT usw. erfordern, Eine vollstan- 
dige String-Befehlsdatei werden wir im Aufbau- 
kurs vorstellen.) 


2.3.3. Prozeduren 


PROGRAM DEMO3; {1} 
PROCEDURE Al; {6} 
BEGIN 

WRITELN ('Prozedur') 
END; 
BEGIN {8} 

Al 

END 
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In Pascal beginnen Unterprogramme mit dem 
reservierten Wort „PROCGEDURE“, gefolgt von 
einem benutzerdefinierten Namen, gefolgt von 
ui ,also z.B. 

PROCEDURE A1; 

Das eigentliche Unterprogramm beginnt dann 
mit „BEGIN" und endet mit „END;“ (im Geg. 
zum „END.“ beim Hauptprogramm). Der Aufruf 
des Unterprogramms bzw. der Prozedur erfolgt 
im Hauptprogramm durch einfache Angabe des 
Prozedurnamens, Näheres über Prozeduren 
und Funktionen sowie über Labels finden Sie im 
Kyan-Aufbaukurs. 


3. Grundbefehle 


Der KYANKURS enthält zu jeder Befehlsgruppe 
einige Übungsbeispiele, die Sie modifizieren 
sollten, damit Sie mit den Befehlen vertraut 
werden. Übertragen Sie zu diesem Zweck den 
KYANKURS von der DOS-3.3-Sammeldisk auf 
Ihre Kyan-Arbeitsdiskette mit dem ProDOS- 
CONVERT-Programm (oder mit unserem 
DOSTOPRO aus „ProDOS für Aufsteiger, 
Bdr2=), 


3.1. Bildschirm-Ausgabe 


WRITE: Der WRITE-Befehl schickt die Werte 
bestimmter Datentypen (Integer, Real, Char und 
String) an das momentane Ausgabegerät, das 
hier stets der Bildschirm ist; andere Ausgabe- 
geräte sind Drucker, Diskettendatei usw., die 
später behandelt werden. Auf das Befehlswort 
WRITE folgt in runden Klammern entweder ein 
Wert oder mehrere durch Kommas getrennte 
Werte. Beispiele: 


{Je 1 Wert} 

WRITE (1); 

WRITE (123,456); 
WRITE ('P'}; 
WRITE ('Peeker'); 
{Je 2 Werte} 
WRITE (1.1, 2.2); 


WRITE ('AA', 'BB'); 
{Je 1 Konstante} 
WRITE (IK}; 

WRITE (RK); 


Man beachte die einfachen Anführungszeichen 
bei Stringwerten. 


WRITELN: Im Unterschied zu WRITE schickt 
WRITELN in Kyan-Pascal ein Return nach dem 
letzten Wert, also quasi nach dem „)", hin- 
terher: 

WRITELN (1); 

ergibt 1 + Return. 

WRITELN (1, 2); 

ergibt 12 + Return. 

Steuerzeichen können z.B. mit 

R := CHR (13); {Return} 

definiert werden, wobei R eine Char-Variable 
ist. Für ein nacktes Return genügt auch das 
einfache 

WRITELN; 


Home: Den Bildschirm löscht man in Kyan- 
Pascal mit 

WRITELN (CHR (12)); 

wenn eine 80-Zeichenkarte verwendet wird. 
Der KYANKURS enthält eine kleine Ässem- 
blerroutine, damit der Home-Befehl auch in 40 
Z/Z tunktioniert. 
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Invers/Normal: Für inverse Bildschirmdarstel- 
lung gilt in Kyan-Pascal bei Verwendung der lle/ 
c-80-Zeichenkarte 

WRITE (CHR (15)); {invers} 

WRITE (CHR (14)); {normal} 


GOTOXY: Der GOTOXY-Befehl fehlt in Kyan- 
Pascal. Der KYANKURS enthält deshalb eine 
kleine Assemblerroutine, die den Cursor mit 
GOTOXY (X,Y) positioniert, wobei X für die 
Spalte (0-79 bzw. 0-39) und Y für die Zeile (O- 
23) steht. Beispiele: 

GOTOXY (0,0); {oben links} 

GOTOXY (0,23); {unten links} 


3.2. Formatierte Ausgabe 


Der WRITE/WRITELN-Befehl läßt eine rechts- 
bündig formatierte Ausgabe (Print-Using) von 
Zahlen und Strings zu. Die allgemeine Form 
lautet 

WRITELN (Ausdruck:G:N); 

wobei G für die Gesamtfeldlänge und N für die 
Nachkommastellen (nur bei Fließkomma-Zah- 
len) steht. Beispiele (jedes „DI* steht für 1 
Leertaste): 

WRITELN (1:5); 

gibt die Integer-Zahl 1 aus als 

Jelsle]}] 

WRITELN ('A’:3); 

ergibt 

LIEJA 

WRITELN (Peeker':10); 

ergibt 

[IL] IDJPeeker. 


Eine Kyan-Fließkomma-Zahl hat maximal 19 
Stellen: 

-1.234567890123E-12 

Bei z.B. 

R := 123.44444444; 

WRITELN (R:10:2); wird 

OILIEH 1123.44 ausgegeben. 


Sonderfälle: 

1 Wenn eine Rundung in dem angegebenen G- 
N-Format nicht mehr möglich ist, werden x Nul- 
len eingefügt, wobei x dem Exponenten ent- 
spräche. Beispiel: 

R := 1E+80; WRITELN (R:10:2); ergibt 
100000...00000.00, 

d.h. eine Zahl mit 80 Nullen vor und 2 Nullen 
nach dem Dezimalpunkt, womit die Feldlänge 
weit überschritten wird. 

2 Bei der unformatierten Ausgabe von Real- 
Zahlen steht in der ersten Stelle im Falle einer 
negativen Zahl ein „-“ und im Falle einer positi- 
ven Zahl eine Leertaste. Außerdem wird nur 
eine Stelle nach dem Dezimalpunkt ausgewie- 
sen. Beispiel: 

R := -1.2345; 

WRITELN (R); ergibt -1.2E+00 

und WRITELN (R:11); ergibt -1.2345E+00. 


3.3. Wertzuweisung 


Die Wertzuweisung zu einer Variablen V erfolgt 
in der Form 

V := Ausdruck; 

Links vom „:=" steht eine Integer-, Real-, 
Char- oder String-Variable, und rechis vom 
„ı=" steht ein Literal („wörtlicher" Ausdruck), 
eine Konstante, eine Variable oder ein Formel- 
ausdruck. Beispiele: 
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IV := 10; 

RV := 10.5; 

BU 3 At: 

IV := IK + IK -55; 


In Kyan-Pascal gibt es u.a. die Systemkonstante 
MAXINT (= maximale Integer-Zahl 32767), die 
bei der Wertzuweisung verwendet wird, z.B. 

IV := MAAINT; 


3,4. Tastatur-Eingabe 


READLN: Dieser Befehl liest eine Real-, Inte- 
ger, Char- oder String-Variable über die Tasta- 
tur ein, wobei die Eingabe mit Return abge- 
schlossen werden muß, z.B. 

READLN (R); 

Bei READLN (R1, R2) kann nach Ri wahlweise 
ein Return oder eine Leertaste getippt werden, 
während nach R2 ein Return erforderlich ist. Da 
dies den Anwender unnötigt irritiert, vermeide 
man Mehrfach-READLNSs. 

Gibt man bei Integer- oder Real-Variablen 
„Quatsch“ ein, z.B. „AAA“, so wird der maxi- 
male negative Integer- oder Real-Wert zuge- 
wiesen, d.h. 

-32768 für Integer 

-9.0E-99 für Real. 

Andere Pascal-Implementierungen „verab- 
schieden“ sich in solchen Fällen mit einem 
Runtime-Error. 


READ liest ein einzelnes Zeichen von der Dis- 
kette usw. ein. Für die Tastatur-Eingabe ohne 
Return verwende man besser die Ässem- 
blerroutine RDKEY (siehe KYANKURS). 


3.5. Integer-Mathematik 


+, - und x: Dies sind die einfachen Operato- 
ren: hinzu kommt noch +/- als Vorzeichen, das 
ohne Leertaste direkt vor die Zahl gesetzt und 
eingeklammert werden muß. Beispiele: 


IV. 105720. 
IV := 20 - 10; 
IV := 10 * 10; 


WRITELN ({-10) + (-20)); 


Merke: Ein Ausdruck darf nicht mit einem Vor- 
zeichen beginnen. 


Die Zuweisung (Fließkomma-Variable := Inte- 
ger-Ausdruck) ist zulässig, z.B. 
AV 


Die umgekehrte Anweisung (Integer-Variable 
‘= Fließkomma-Ausdruck), z.B. 
Nez 

ist verboten. 

Man merke sich, daß Variablen beim Programm- 
start nicht automatisch auf O gesetzt werden. 
Das Mini-Programm 


PROGRAM TEST; 
VAR R: REAL; 
BEGIN 
WRITELN {R) 
END. 


hat zur Folge, daß für R derjenige „Wert” ange- 
zeigt wird, der sich zufällig im Speicher be- 
findet. 


DIV und MOD: \Wenn gilt 

Dividend : Divisor = Quotient + Rest 
dann gilt 

DIV = Quotient-Operator, 
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MOD = Rest-Öperator. 
Beispiele: 

WRITELN (7 DIV 3); ergibt 2. 
WRITELN (7 MOD 3); ergibt 1 


ABS: Die Absolutfunktion eliminiert ein mögli- 
ches Vorzeichen, z.B. 

WRITELN (ABS (-10)); ergibt 10. 

SQR: Quadrat (nicht Quadratwurzel!) einer 
Zahl, z.B. 

WRITELN (SQOR (10)); ergibt 100. 


PRED und SUCC: PRED = Predecessor = 
Vorgänger = Integer-Zahl - 1; SUCC = Suc- 
cessor = Nachfolger = Integer-Zahl + 1, z.B. 
WRITELN (PRED (10)); ergibt 9. 

WRITELN (SUCC (10)); ergibt 11. 


ROUND und TRUNC: Hierbei handelt es sich 
um das Runden (ROUND) oder Abhacken 
(TRUNC von to truncate) einer FließBkomma- 
Zahl zu einer Integer-Zahl, z.B. 

WRITELN (ROUND (10.8)); ergibt 11. 
WRITELN (TRUNG (10.8)); ergibt 10. 


3.6. Fließkomma-Mathematik 


+, -, x, / sind die üblichen Operatoren für plus/ 
minus/mal/geteilt, z.B. 


RY := (lel + 28) « (3:3 - 2.2] 
WRITELN (121 *« 22 + 33): 
WRITELN (1.1 x {2.2 + 3.3)): 


Man beachte die Prioritätsregeln: Punkt geht vor 
Strich, Klammer vor alles. 


Potenz: Der „hoch“-Operator „X } Y“ fehlt in 
Kyan-Pascal und muß durch 

EXP (Y#+LN (9); 

simuliert werden, 

WRITELN (EXP (8.0 & LN (2.0))); 

entspricht 2 T 3. 


SQOR und SQRT: SQOR steht für „Square“ = 
Quadrat = X * X, und SORT steht für „Square 
Root" = Quadratwurzel von X, z.B. 

WRITELN (SOR (3.0)); ergibt 9.0. 

WRITELN (SQRT (9.0)); ergibt 3.0. 


SIN, COS, ARCTAN: Dies sind die üblichen 
trigonometrischen Funktionen Sinus, Cosinus 
und Arcustangens. Die Berechnung erfolgt im 
Bogenmaß (= Pi/180; Gegensatz: Gradmaß = 
360 Grad). Als Umrechnungsfaktor verwende 
man 

F:= 0.01745329251993; 

Es gilt dann (Beispiele): 

WRITELN (SIN (30 & P}:3:1); 

ergibt 0.5. 

WRITELN (COS (60 x F}:3:1); 

ergibt ebenfalls 0.5. 

Die TAN-Funktion fehlt in Kyan-Pascal und muß 
durch 

RV := SIN &X) / COS 9; 

simuliert werden. 


LN, EXP: LN steht für die natürliche Logarith- 
mus-Funktion und EXP für die Exponentialfunk- 
tion von e, z.B. 

WRITEENGENSCTODI ZEN FTO)SETE 

ergibt 2.0. 

WRITELNKEXP ):15:13); 

ergibt 2.718281828556. 
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3.7. Verzweigungen und Schleifen 


<,=,>,<=,>=, <>: Hierbei handelt es sich 
um die Vergleichsoperatoren (kleiner, gleich, 
größer, kleiner/gleich usw.). Man beachte, daß 
„><", „=>" illegal wären. 


NOT, AND, OR: Dies sind die booleschen, 
logischen oder Wahrheitswert-Operatoren. Da- 
neben gibt es noch den Datentyp BOOLEAN 
und die Konstanten TRUE und FALSE, worauf 
an dieser Stelle nicht eingegangen wird. Man 
beachte, daß die booleschen vor den Vergleich- 
operatoren rangieren. Man benutze deshalb 
Klammern und programmiere 

IF(t = 1) AND (2 = 2) THEN... 

und nicht 

IFı=1TAND2=2[THEN ... 

denn dies würde bedeuten 

IFi= (1 AND 2) = 2 THEN... 


IF-THEN-ELSE 

Der sequentielle Befehlsfluß eines Pascal-Pro- 
gramms wird durch Verzweigungen, Schleifen 
und Unterprogramme durchbrochen. Beim IF- 
THEN-(ELSE-)Befehl muß man drei Befehlstei- 
le unterscheiden: 

— THEN Beiehle 11, T2r. 

— ELSE-Befehle E1, E2... 

— Weitere Befehle W1, W2... 


IF-THEN läßt sich umschreiben mit „Wenn Be- 
dingung erfüllt ist, dann THEN-Befehlfe) T1, 
T2... ausführen, ansonsten direkt die weiteren 
Befehle W1, W2... ausführen.“ Je nachdem, ob 
von THEN ein einziger Befehl oder mehrere 
Befehle abhängen, unterscheidet man: 

IF Bedingung THEN 

IHR 

Mel 

oder 

IF Bedingung THEN 

BEGIN 

us 

T2 

END; 

Wlan 

Im letzteren Fall ist die BEGIN-END-Klamme- 
rung (= Verbundanweisung) erforderlich. Be- 
trachten wir hierzu folgende Beispiele: 


IF l1= 2 THEN 
WRITELN ('T1'); 
WRITELN ('T2'); 

WRITELN ('WI'); 


Hier werden T2 und Wi ausgegeben, was uner- 
wünscht ist, 


IF l= 2 THEN 
BEGIN 
WRITELN ('T1'); 
WRITELN ('T2') 
END; 
WRITELN ('W1'); 


Hier wird nur WI ausgegeben, was erwünscht 
ist. 


Merke: Wird die Bedingung erfüllt/nicht erfüllt, 
dann wird die THEN-Anweisung/THEN-Ver- 
bundanweisung ausgeführt/nicht ausgeführt. 
Nach einem „THEN” können theoretisch belie- 
big viele Befehle durch „BEGIN-END" verbun- 
den werden. Vergißt man die BEGIN-END- 


Klammerung bei mehreren THEN-Befehlen, so 
fährt Pascal in jedem Fall mit dem zweiten Be- 
fehl nach dem THEN fort. Die Einklammerung 
wird vor allen Dingen dann kritisch, wenn ver- 
schachtelte IF-THEN-Konstruktionen verwen- 
det werden. 


IF-THEN-ELSE läßt sich umschreiben mit 
„Wenn Bedingung erfüllt ist, dann THEN-Be- 
fehl(e) T1, T2... ausführen, andernfalls ELSE- 
Befehl(e) E1, E2... ausführen, und danach in 
jedem Fall mit den weiteren Befehlen W1, W2... 
fortfahren“. Man merke sich, daß vor den Wort 
„ELSE" das „;" verboten ist. Betrachten wir 
nun folgendes Beispiel: 


IFA = B THEN 
BEGIN 

WRITELN ('T1'); 
WRITELN {'T2!) 
END {hier kein '";"!)} 
ELSE 
BEGIN 

WRITELN ('El'); 
WRITELN ('E2') 
END; 
WRITELN {'W1'); 


Wenn A = B wahr ist, dann werden T1, T2 und 
W1 ausgegeben. Wenn A = B falsch ist, dann 
werden E1, E2 und W1 ausgegeben. Würde das 
Wort „ELSE“ fehlen, dann würden in jedem Fall 
auch E1 und E2 ausgegeben. „ELSE“ wird also 
benötigt, um vor den weiteren Befehlen WI, 
W2... anstelle der Wahr-THEN-Alternative T1, 
T2... die Falsch-ELSE-Alternative Ei, E2... aus- 
führen zu können. 


CASE-OF-END 

IF-THEN und IF-THEN-ELSE sind Entscheidun- 
gen, die von dem Wahrheitsgehalt einer Bedin- 
gung, d.h. einem einzigen logischen Vergleich, 
abhängen. Bei der CASE-Anweisung stehen 
keine logischen Bedingungen, sondern fesie 
Werte in bezug auf eine vorgegebene Datentyp- 
Variable — Selektor genannt — zur Auswahl, 
Beispiel: 


PROGRAM FÄELLE; 
VAR I: INTEGER: 


BEGIN 
WRITE ("ZAHL 1-3:'): 
READLN (I); 


CASE I OF {CASE-Anfang)} 
1: WRITELN (1): 

2: WRITELN (2}; 

3: WRITELN (3) 

END (CASE-Ende} 
END. {Programm-Ende} 


FOR-TO/DOWNTO-DO 

In Pascal lautet die Aufwärtszählschleife (als 
Beispiel) 

FOR | := 1 TO 10 DO WRITELN; 

und die Abwärtszählschleife 

FOR | := 10 DOWNTO 1 DO WRITELN; 

Wenn mehrere Befehle ausgeführt werden sol- 
len, so ist die BEGIN-END-Verbundanweisung 
erforderlich. Beispiel: 


FOR I := 1 TO 3 DO 


BEGIN 

WRITELN ('A'); 
WRITELN ('B') 
END; 


gibt dreimal „A" und dreimal „B" aus. 
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Spezialfälle: 


FOR I := 1 TO 10 DO; 

ist eine Leerschleife (nacktes „;"). 

FOR I := 1 TO3DO 

FOR JE 0O5DO 

WRITELN (I, '', 4); 

ist eine verschachtelte Schleife. Stellen Sie fest, 
was ausgegeben wird! 

FOR CV := "A TO 'Z' DO 

WRITE (CV); 

ist in Pascal möglich und gibt hier die Buchsta- 
ben von A bis Z in einer Zeile aus. Allgemein 
formuliert läßt die Pascal-FOR-Schleife als Lauf- 
variablen sog. skalare Variablen zu. Dies sind 
u.a. Integer- und Char-Variablen, aber keine 
Real-Variablen, Deshalb ist die Schrittweite 
auch stets 1. 

FOR I := 11 TO 10 DO 

WRITELN (I); 

bewirkt gar nichts, denn eine FOR-Schleife wird 
übersprungen, wenn der Anfangswert den End- 
wert übersteigt. 


WHILE-DO 

Diese Schleife heißt in Worten „Solange die 
WHILE-Bedingung noch erfüllt ist, führe die 
DO-BEGIN-END-Befehle aus“. Beispiel: 


Al: 

WHILE A < 10,5 D6 
BEGIN 

WRITELN {A}; 
A:=A+05 
END; 


Dieses Demo gibt die Zahlen 1.0, 1.5...10.0 
aus. 

Zwischen WHILE und DO steht wie zwischen IF 
und THEN ein logischer Ausdruck. Die WHILE- 
Schleife wird praktisch Immer als BEGIN-END- 
Verbundanweisung konstruiert. Man beachte, 
daß die WHILE-Schleife übersprungen, d.h. 
kein einziges Mal durchlaufen wird, wenn die 
Bedingung bereits beim ersten Durchlauf nicht 
erfüllt ist. So wird z.B. 

= 2: WAIEEI ZPO: 

Übersprungen. 


REPEAT-UNTIL 

Diese Schleife heißt in Worten „Führe die RE- 
PEAT-Befehle solange aus, bis die UNTIL-Be- 
dingung nicht mehr erfüllt ist", Beispiel: 


A := 140; 

REPEAT 

WRITELN (A); 
A:=A+0,5 
UNTIL A >= 10,5; 


Dieses Demo gibt die Zahlen 1.0, 1.5...10.0 
aus, 

Der logische Ausdruck steht hier am Ende, d.h. 
nach UNTIL, so daß die REPEAT-Schleife im 
Gegensatz zu den FOR- und WHILE-Schleifen 
mindestens einmal durchlaufen wird. Wie das 
Demo zeigt, läßt sich eine WHILE-Schleife 
durch eine REPEAT-Schleife ausdrücken und 
umgekehrt. Im Gegensatz zur WHILE-Schleife 
ist bei der REPEAT-Schleife niemals eine BE- 
GIN-END-Verbundanweisung erforderlich, weil 
REPEAT...UNTIL selbst eine Verbundanwei- 
sung darstellt. Wie vor dem END eines BEGIN- 
END-Verbundes muß auch vor dem UNTIL ei- 
nes REPEAT-UNTIL-Verbundes kein „;" 
stehen. 
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{ 
PROGRAM KYANKURS; 


CONST IK = 100; RK = 100,5; CK = 'P!; SK = 'Peeker'; 
TYPE STRING = ARRAY [1.,6] OF CHAR; 

{TYPE und ARRAY sind im Grundkurs nicht erklaert!) 
VAR IV: INTEGER; RV: REAL; CV: CHAR; SV: STRING; 

IH: INTEGER; RH: REAL; 


R: CHAR; T:. CHAR; 
[m } 
{Hinweis: } 
(Im Peeker 4/86 »ırd detailliert ] 
gezeigt, wie man unter Kyan-Pascal } 
} 


{Assemblerroutinen eınbindet. 


{ 
PROCEDURE HOME; 


BEGIN 
#A 
Spa ;Stets X in Temp ($0010} retten! 
JSR $FC58 ;HOME 
LEX T ‚Nachher stets X wieder laden! 
+ 
END; (Ersetzt RTS} 
PROGEDURE GOTOXY (X,Y: INTEGER); 
BEGIN 
#A 
SLa T ;X-Register speichern 
LDY #3 
LEA \eP).Y. YLEVWTAB 
CMP #24 
BCS Al ;groesser als 231 
JSR $FBSEB ;TABV 
LDY #5 
EDA- (sp), AL. HEAB 
CMP #80 
BCS Al :groesser als 79! 


STA $057B :XL: HTAB 0-79 - 80 Z/Z IlIe/c 
STA $0024 :XL: HTAB 0-23 - 40 Z/Z IIt/e/c 


AlZEEDX ;‚X-Register laden 
# 
END; {Ersetzt RTS} 


FUNCTION RDKEY: CHAR; 


BEGIN 

#+A 
STX T ‚X-Register speichern 
JSR $FDOC ;RDKEY: Tastaturabfrage 
AND #$7F ;‚Bit 7 loeschen 
LDY #3 
STA (SP),Y ;in Funktionswert poken 
EDX.T ;X-Register laden 

*# 

END; {Ersetzt RTS} 


PROCEDURE BILDSCHIRMAUSGABE; 
BEGIN 
HOME; WRITELN; WRITELN (R}); 


WRITELN {'Hans', ' Meier'); 

WRITELN ('Hans'!, R, 'Meier', R); 

WRITELN (CHR(15), 'Apostroph '' so', CHR{14), R}; WRITELN; 
WRITE ('A'); WRITE ('-'); WRITELN ('B'): WRITELN; 

RV := 12345,.6789; WRITE (RV, !/", RVG '/", RW): 


GOTOXY 
GOTOXY 
GOTOXY 
GOTOXY 
END; 


23, 19); WRITE ('Hier'); 

29, 18); WRITE ('Darueber'):; 
0,0); WRITE ('Oben links'!); 
0, 19); WRITELN ('Zeile 20') 


ee u en -———} 


{2.2. Formatierung} 

[--- 

PROCEDURE FORMATIERUNG; 

BEGIN 

WRITELN ('AUSDRUCK:G:N', R); 

RV := 123,456789; 

WRITBEN RU. U ER Tea VS RVeT224, 07, By lo), 
RV := -RV; 

ÜRITREN (RV ZU Re 3, TR 1224, El RN: 12:n), 
WRITELN; 


WRITELN {R, 'AUSDRUCK:G', R); 
WRITELN ('Zehn!, ' ':10, 'Spaces'); WRITELN; 


Ne. =]: 
WRITELN (IV, '/', IV:6, '/', IVıT, "f", IV:8):NRITELN: 
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WRITELN (SK, '/", SK:10, Wi. SK:15, '/', SK:20) 
END; 


m — 

I2.3, Wertzuweisungen} 
nn 

FROGEDURE WERTZUWEISUNG; 

BEGIN 

WRITELN ("''Literals''', Bl]: 

RV:= 765.432;  IVi= 765; ie TZ" 

WBRITELK [RVY): WRITELN (IV): WRITELN (CV); 


WRITELN (R, 'Konstanten', R); 
RV:= RK; IV:= IK; CV:= CK; SV := SK; 
WRETBEN (RW, 1, IV. UT on, rl, av 


WRITELN (R, 'Systemkonstante MAXINT:', R}; 
IV:= MAXINT: WRITELN (IV); IV:= -MAXINT; WRITELN (IV) 


END; 

ee, 

{2,4. Tastatur-Eingabe} 

Euer en zer nen) 

PROCGEDURE TASTATUREINGABE; 

BEGIN 

WRITELN ('READLN fuer Char, String, Real, Int!', R}; 
WRITE (R, "Char: '); READLN (CV); WRITELN (CV); 
WRITE (R, 'String: '); READLN (SV); WRITELN (SV); 
WRITE (R, "Real: '); READLN (RV); WRITELN (RV); 
WRITE (R, "Integer: '); READLN (IV); WRITELN (IV); 
WRITELN; 

WRITE ("RDKEY: '); CV := RDKEY; WRITELN (CV) 

END; 

kamen en 

{2,5. Integer-Mathematik} 

ee a nu Zu | 

PROCEDURE INTEGERMATHE; 

BEGIN 

WRITELN ('+, —- und #', R); 

IV:= 10 + 20: WRITELN ('10 + 20 = ', WV:6); 

IV:= 20 - 10: WRITELN ('20 - 10 = ', IV:6); 

IV:= 10 & 10; WRITELN ('10 = 10 = ', IV:6); 
WRITELN ({R, "Quotient und Rest: '); WRITE (IK); 
WRITE ('! geteilt durch '); IH:= 7; WRITE (IH); 
WRITE (' = ' = IK DIV IH; WRITE (IV); 

WRITE ('! Rest '):; IV:= IK MOD IH: WRITELN (IV); 


WRITE {R, 'Absolutbetrag /-I/: '); 
IH:= -7; IV:= ABS (IH): WRITELN (IH, ' -> ', IV); 


WRITE (R, "Quadrat: I x I: '); 
IH:= 20; IV:= SQR (IH); 
WRITE ("Quadrat von ', IH); WRITELN (' ist ', IV); 


WRITE (R, 'Vorgaenger/Nachfolger: '); 

IH:= 20; WRITE (IH); WRITE (': '); 

WRITE ('Vorgaenger ', PRED (IH}}; WRITE (', '); 
WRITELN ("Nachfolger ', SUCC (IH)}; 


WRITE {R, "Runden: '); 

RV:= -666.666; IV:= ROUND {RV); WRITE ('Real ', RV); 
WRITE (' auf Integer gerundet ', IV); 

WRITELN (' und abgehackt ', TRUNC (RV)) 


END; 

(m ) 
(2.6. Fliesskomma-Mathematik} 
ee m 


PROCEDURE FLIESSKOMMAMATHE; 
BEGIN 


RV:= 123.12345678; RH:= 123. Be 


WRITELN (RV:12:6, ' + ', RH:12:6, = RV CRL: 12:6]: 
WRITELN {RV:12:6, ' —- ', RH:12:6, ' = ', RV - RH:12:6); 
WRITELN {RV:12:6, ' = ', RH:12:6, ' = ', RV x RH:12:6); 
WRITELN ({RV:12:6, ' / ', RH:12:6, ' = ', RBV / RH:12:6); 
WRITELN; 

WRITE (XP Y=EXP (Y#LN (X): '); 

RV:= 3.0; RH:= 5.0; 

WRITELN (RV, ' f ',RH, "= ', EXP (RH # LN (RV)):6:2); 


WRITELN; 


WRITELN (R, 'Punkt vor Strich, Klammer vor alles', R); 


WRITELN ('3+4A4A =» 5-13 ='\3+4A4 *« 5-13); 
WRITELN ('(3+4) » (5-13) = ', (3+4) = (5 - 13)); 
WRITELN {R, 'Diverse Funktionen', R); 

WRITE ('Von Ausgangszahl '); RV:= 5.6789; 

WRITELN (RV:7:4, ' -> '); WRITELN 


(' ABS: ', ABS (RV}:8:4, 

"SOR: ', SQR (RV):8:4, 

' SORT: ', SQRT {RV):8:4, 

' SIN: '", SIN {RV):8:4, R, 

1605: ", COS IRY]:854, 

' ATAN:', ARCTAN (RV):8:4, 

Tan 0 STH u S (RV):8:4, 

EU EXP: ', EXP I(RV)I:B:4, R, 

U LN: ", LN  (RV):8:4) 

END; 

Bean mem un | 
{2.7. Verzweigungen und Schleifen} 
1} 
PROCEDURE VERZWEIGUNGEN; 

BEGIN 


WRITELN ('"IF-Vergleiche:', R); 
IF (1 = 1) AND (1 <> 2) THEN 
BEGIN 
WRITE ('1=1ja'); 
WRITE (', ’) 
END 
ELSE WRITE ('S0?')}; 
IF NOT ({2 < 1) OR (1 > 2)) THEN 
WRITE ('2 < 1 nein, ') {kein ';'!} 
ELSE WRITE ('"Ach?')}; 
IF ('B' > 'A') THEN 
WRITELN (!"B" > mant) 
ELSE WRITELN {('Wie?'); 


WRITELN {R, 'FOR nur mit Integer-Step 1', 
R, 'Fuer Real-Step WHILE + REPEAT’, R); 
FOR IH:= 1 TO 5 DO 


WRITE (IH, ' = ', IH, '=',IH* IH, ', '): 
WRITELN; 

FOR IH:= 5 DOWNTO 1 DO 

WRITE (IH, ' + '",IH, '=',IH+IH, ', '}; 
WRITELN; 


WRITELN ({R, 'Version mit WHILE prueft vorher', R); 
RH:= 0,5; 

WHILE RH < 5.5 DO 

BEGIN 

WRITE (RH:5:2, ' '); RH:= RA + 0,5 

END; 

WRITELN; 


WRITELN {R, 'Version mit REPEAT prueft nachher', R):; 
= 0,5; 
REPEAT 
WRITE (RH:5:2, ' '); RH:= RH + 0.5 
UNTIL RI >= 5.5; 
WRITELN 
END; 


m 


{3.0. Hauptprogramm} 
BEGIN 

R := CHR(13); {Return} 
REPEAT 


HOME; 

WRITELN ('enees KYAN-KURSl s#ene!, R, R, 
1, Bildschirm-Ausgabe', R, 

'2. Formatierte Ausgabe', R, 

'35. Wertzuweisung', R, 

'4. Tastatur-Eingabe', RB, 

'5. Integer-Mathematik', R, 

'5. Fliesskomma-Hathematik’, R, 

'7, Verzweigungen und Schleifen', R, 


'B. Ende', R]; 

Ti=' Hı WHILE ([T < "1') OR (T> '8!) DO T := RbRET: 
HOME; 

CASE T OF 


']': BILDSCHIRMAUSGABE; 
'2': FORMATIERUNG; 

'3'!: WERTZUWEISUNG; 

'4': TASTATUREINGABE; 
'15'!: INTEGERMATHE; 

'6': FLIESSKOMMAMATHE; 
7°: VERZWEIGUNGEN; 

'8': WRITELN {'Ende,..') 
END; 


IF T <> '8' THEN BEGIN WRITELN: CV := RDKEY END 


UNTIL T = '8' 
END. 
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Apple-lic- und Mac-Besitzer haben es besonders schwer, wenn 
sie ihre Maschine erweitern wollen, da der Einbau von Erweiterun- 
gen nicht ganz problemlos ist, zumal man die Apple-Garantie ver- 
liert. Wie man eine Erweiterungskarte einbaut, zeigen die nachfol- 
genden Bilder, die sich auf die CP/M-3.0-Karte der Firma Semjan 
in Frankfurt beziehen, die übrigens die Garantie im Falle eines 
Selbsteinbau übernimmt. 


3, tl ine 





Unter der herausgehobenen Tastatur wird der 


Nach dem Lösen der Bodenschrauben muß die 65C02-Prozessor sichtbar, der mit einer IC- 
Gehäuserückseite herausgeklappt werden, um Zange entnommen und in den freien Sockel 
das Oberteil abzunehmen. der Zusatzplatine gesteckt wird. 
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Beim Einsetzen der Z80-Karte muß besonders 


r darauf geachtet werden, daß die Pins exakt in Zuletzt muß nur noch das zusätzliche Verbin- 
| Wi der freigewordenen IC-Fassung liegen. Ein dungskabel angeschlossen werden. Hierzu ist 
| kleiner Spiegel kann hier helfen. das Laufwerk herauszuklappen. 
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4 Produkte 494 


| 


Leserbriefe 


Imagewriter 

Ich finde Ihre Zeitschrift außeror- 
dentlich gut in jeder Beziehung. 
Mein Wunsch ist, etwas ausführli- 
cher über den Imagewriter zu be- 
richten. 

Robert Brunner, CH-8400 Winter- 
thur 

(Anm.d.Red.: Siehe „Imagewriter 
kurz und bündig" in 12/85, S. 9 
und „Superdump“ in 6/85, S. 22. 
Ein weiterer Aufsatz über Image- 
writer-Zeichensatz ist in Vorb.) 


Premium-Softcard 

Zum einjährigen Bestehen Ihrer 
Zeitschrift hiermit der wahrschein- 
lich 623. Glückwunsch. Meine Zu- 
friedenheit mit Ihrem „Einjährigen,, 
bringe ich durch die beigefügte 
Abo-Karte zum Ausdruck. Hoffent- 
lich finde ich im Heft Nr. 10 auch 
Antworten für meine Probleme: Ich 
benutze auf einem Ile-Kompati- 
blen eine Microsoft-Premium-Soft- 
card. Tabellenkalkulationen und 
Textverarbeitung bereiten damit ei- 
ne wahre Freude. Es tauchen aller- 
dings Probleme — wahrscheinlich 
wegen des Exotencharakters die- 
ser Karte — auf. Eine RAM-Disk 
(z.B. AP 17) wird nicht erkannt! An 
eine Erweiterung des Systems mit 
2 x 80-Tracks Laufwerken wage 
ich jetzt nicht mehr zu denken. 
Wahrscheinlich ergeben sich dabei 
erhebliche Verständigungschwie- 
rigkeiten zwischen dem Disk-Con- 
troller (Erphi, Ehring oder IBS) und 
dem CP/M der Softcard. Nun, ich 
lasse mich überraschen. Vielleicht 
tragen Ihre Aktivitäten dazu bei, die 
Softcard zu popularisieren. 

Dr. Mirus, Berlin 

(Anm.d.Red.: Ein technischer Bei- 
trag über Premium-Softcard liegt 
bereits vor und erscheint dem- 
nächst. Der Autor dieses Aufsat- 
zes hat auch einen RAM-Disk- 
Driver entwickelt, der allerdings 
aus Platzgründen nicht veröffent- 
licht wird.) 


Premium-Softcard 

So, nun ist Ihr Peeker nicht nur ein 
Jahr alt, sondern seit einem Jahr 
bin ich sehr zufriedener Leser des- 
selben. Seit kurzem aber habe ich 
ein Problem, und da es evtl. auch 
andere Peeker-Leser interessieren 
könnte und ich bisher weder von 
Microsoft in Deutschland Informa- 
tionen noch von Erphi die Postan- 
schrift erhielt, wende ich mich an 
Sie. Es handelt sich um die Pre- 
mium Softcard Ile in Verbindung 
mit dem AFDC von Erphi. Wie 
komme ich wieder an die 80 Spu- 
ren, nachdem sich die Geschwin- 
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digkeit verdreifacht hat (alte CP/M- 
Karte)? Ja, es wäre überhaupt In- 
teressant zu erfahren, wie man 
Patches des 6502-BIOS auf der 
Floppy verankert und den Z80 be- 
dient. 

Franz Offenbächer, München 


BASF-Disketten 

Ihrem Erfahrungsbericht über die 
BASF-Flexidisk ID kann ich nur 
zustimmen. BASF-Disketien wer- 
den auch von mir nicht mehr ge- 
kauft, da bei mir die Ausfallquote 
über 30% lag. 

Günter Schulz, Dinslaken 


Die gleichen Erfahrungen wie Sie 
habe ich auch mit BASF-Disketten 
2/96 auf 160 Tracks Laufwerken 
gemacht. Die Disketten ließen sich 
erst nach mehrmaligen Versuchen 
formatieren. Auch hier wurden Re- 
klamationen immer nur abgewim- 
melt. Also B = bloß, A = alles, S = 
scheinbar, F = Fehler? 

Hartmut Klein, Bremen 
(Anm.d.Red.: Die Peeker-Redak- 
tion wurde inzwischen von zwei 
BASF-Ingenieuren besucht. Eine 
Fehlerquote von ca. 1% wurde be- 
stätigt. Allerdings muß man unter- 
scheiden zwischen harten und 
weichen Fehlern: Ein harter Fehler 
liegt vor, wenn die Kunststoff- 
scheibe physisch defekt ist; in sol- 
chen Fällen kann niemals forma- 
tiert werden. Ein weicher Fehler 
liegt vor, wenn sich eine winzige 
Unreinheit auf der Kunststoffschei- 
be befindet; wenn man in solchen 
Fällen mit Spezialprogrammen bei 
den als scheinbar defekt ermittel- 
ten Spuren etliche Sekunden lang 
Formatierungsversuche unter- 
nimmt, ist die Diskette oft zu ret- 
ten, womit sich die von uns stati- 
stisch ermittelte Fehlerquote ent- 
sprechend senkt. In der Redaktion 
sowie im Software-Service können 
wir jedoch aus Zeitgründen nicht 
jede Diskette einzeln untersuchen, 
bevor wir sie in Gebrauch nehmen 
und erachten deshalb auch weiche 
Fehler als echte Fehler, wenn bei 
konventionellen Formatierungs- 
programmen ein Programmab- 
bruch erfolgt. Übrigens haben wir 
100 BASF-Qualimetric-Disketten 
zu Testzwecken erhalten und wer- 
den demnächst darüber berichten. 
US) 


Operator | 

Im „Erfahrungsbericht Operator |" 
(Peeker 9/85, S. 60) ist dem Autor 
ein Fehler unterlaufen: Das einfa- 
che Abführungszeichen (Hex 60) 
läßt sich doch mit der Tastatur er- 
zeugen, und zwar mit CONTROL- 
SHIFT-7. Leider gibt auch der Ta- 
stenbelegungsplan in der Bedie- 
nungsanleitung eine falsche Aus- 


kunft, so daß man nur zufällig oder 
durch systematisches Durchtesten 
aller Tasten auf diese Möglichkeit 
stößt. 

Dieter Steinwender, Hamburg 


Apple-Ill-Kontaktadresse 
Nachdem Herr Stiehl in den ver- 
gangenen Monaten mehrfach dar- 
auf hingewiesen wurde, daß sich 
Minderheiten betreffend weniger 
populärer Systeme, als dies die 
Apple-Il-Familie darstellt, beim 
Verlag melden sollten, möchte ich 
als einer der wenigen Apple-Ill- 
Anwender diesen Aufruf wiederho- 
len. Da der Vertrieb der Apple-IIl- 
Familie durch Apple Deutschland 
nun endgültig eingestellt worden 
ist, erscheint es mir um so wichti- 
ger, daß Meinungen und Erfahrun- 
gen bezüglich Software- und ins- 
besondere Hardwareentwicklun- 
gen nicht den so oft zitierten Weg 
in die „Mottenkiste“ gehen, son- 
dern den noch verbliebenen An- 
wendern publik gemacht werden 
sollten. Insofern bitte ich alle Ap- 
ple-IIl-User nochmals an dieser 
Stelle: „Laßt den Apple III nicht 
untergehen. Es gibt sicherlich 
noch einige unter Ihnen, die mit 
dem System viel Spaß und Freude 
haben, sei es privat oder auch 
kommerziell. Nur durch Erfah- 
rungsaustausch ist es möglich, 
den Apple Iil am Leben zu erhal- 
ten“. Ich bin bereit, meine Adresse 
als Kontaktadresse zur Verfügung 
zu stellen und mir zugesandte Bei- 
träge so gut wie möglich an andere 
weiterzugeben. Schreiben Sie an: 
Jürgen Janson, Bismarckstr. 20, 
6750 Kaiserslautern, Tel: 0631/ 
65302 


Operator lle 

Ich habe mich gefreut, als ich Ihren 
Bericht über die Tastatur Operator 
Ile von AFC Köln im Peeker gele- 
sen habe. Nachträglich möchte ich 
noch zu Ihrem Bericht bemerken, 
daß der Einbau des Interfaces der 
Tastatur auf der Platine für hand- 
werklich Begabte recht einfach ist. 
Nachteilig zu den Tastaturen ist 
noch zu sagen, daß es leider keine 
Overlays gibt und daß man auf den 
ersten Blick nicht erkennen kann, 
ob man sich im deutschen oder 
amerikanischen Zeichensatz befin- 
det. Speziell zur Operator Ile wäre 
noch zu sagen, daß es bei einigen 
Programmen, die die Apfeltasten 
benötigen, zu Problemen kommen 
kann. Dies ist z.B. bei der Textver- 
arbeitung von Appleworks der Fall, 
wenn man von der Tastatur aus 
(nicht über das Hilfsmenü Druck- 
parameter) einen Text unterstrei- 
chen will (mit Ctrl-). Diese Funktion 
ist leider so ohne weiteres nicht 


ansprechbar. Als Lösung würde 
ich eine Funktionstastenbelegung 
mit dem Wert IF hexadezimal vor- 
schlagen. Weiterhin nachteilig, 
aber nicht störend, ist, daß man die 
Funktionstasten nicht mit Funktio- 
nen belegen kann, die die Apfelta- 
sten benötigen (z.B. Appleworks, 
Quickfile). Alles in allem kann ich 
als Anwender jedoch sagen, daß 
die Operator lle-Tastatur ein doch 
gutes  Preis-Leistungsverhältnis 
darstellt und ich mit ihr sehr zufrie- 
den bin. 

Martin Bucholz, Dietzenbach 


Dazzle Draw 

Diesem Testbericht ist nachzutra- 
gen, daß Dazzle Draw bei einer 
Konfiguration von Äpple lle, Tax- 
an-Monitor und 64K-80-Zeichen- 
karte von Taxan keine Farben, die 
man gute Farbdarstellung nennen 
kann, erzeugt. So gesehen be- 
trachte ich die Behauptung der Be- 
triebsanleitung: „...den Gebrauch 
von 16 Farben in der revolutionä- 
ren Technik der doppelt hochauflö- 
senden Grafik" als gigantische 
Übertreibung. Was man sieht, ist 
im „adjust color-feature“ die kom- 
plementäre Darstellung von Far- 
ben und in den anderen Features 
sonst nur violette und grünliche 
Farbtöne. Diese Software ist somit 
nur auf monochromen Bildschir- 
men verwendbar. Mich würde nun 
interessieren, wo und wie der Te- 
ster die Farben gesehen hat. Oder 
ist womöglich jemand farbenblind 
gewesen? 

Gunter Eisermann, Hüttenfeld 


Apple-Ill-Besitzer 

Als Apple Ill-Besitzer und „Nur- 
Pascal-Programmierer" bin ich na- 
türlich schon daran interessiert, 
daß die Zeitschrift Peeker mög- 
lichst viele Pascal-Programme 
bringt, zumal meiner Ansicht nach 
die Umsetzung von Pascal nach 
Basic einfacher vonstatten geht als 
umgekehrt oder gar die Umset- 
zung von Applesoft-Basic nach 
MBasic. Nach meinen Erfahrungen 
mit Fortran IV, COBOL und dem 
Eurocom II-Basic bin ich vom Ap- 
ple-Ill-Pascal-System begeistert, 
besonders hinsichtlich der Mög- 
lichkeit, häufig benötigte Unterpro- 
gramme aus einer Text- oder Unit- 
„Bibliothek“ einzubinden und der 
Pflegbarkeit der Programme auch 
nach Monaten und Jahren. Die von 
mir erstellten Programme belegen 
im allgemeinen 40 bis 70 Blocks, 
die Texte dazu über 100 Blocks. 
Man stelle sich nur vor, ein solches 
Programm in Basic nach 12 Mona- 
ten ändern zu müssen! Allerdings 
läßt die Unterstützung seitens der 
Firma Apple mehr als zu wünschen 
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übrig. (Das von mir im März 1984 
zurückgelieferte fehlerhafte SOS- 
Reference-Manual habe ich bis 
heute nicht erhalten!) Meine Bitte 
daher an Sie: ab und an mal ein 
paar Informationen über den Apple 
Ill im Peeker. 

Dipl.-Ing. Reinhard Schäfer, Pohl- 
heim 

(Anm. d. Red.: Kontaktadresse s.o. 
Wir können auch gerne Kurzbeiträ- 
ge zum Apple III veröffentlichen, 
die wir aber mangels Gerät nicht 
selbst prüfen geschweige denn 
schreiben können.) 


Verbesserungsvorschläge 

Um Ihre schon gute Zeitschrift wei- 
ter zu verbessern, möchte ich fol- 
gende Verbesserungsvorschläge 
anbieten: 

1. Bei Hardwaretests sollten, so- 
weit vorhanden, mehrere Produkte 
miteinander verglichen werden. In 
Heft 4/85 wurde z.B. nur der Erphi- 
Controller vorgestellt. Aus meiner 
Sicht wäre ein Vergleich zwischen 
Erphi- und z.B. dem Ehring-Con- 
troller besser gewesen. Gleiches 
gilt für die in Heft 9/85 besproche- 
ne Operator-Tastatur (Vergleich 
mit ACS, BROÖSE, PREH usw.). 
(Anm. d. Red.: Wir können immer 
nur das testen, was uns für 1-2 
Monate ausgeliehen wird.) 

2. Da, wie auch im Peeker schon 
des Öfteren angedeutet, der Apple 
II heute nicht mehr den Stand der 
Technik darstellt und es Gerüchte 
um einen 16-Bit-Nachfolger gibt, 
schlage ich einen Ideenwettbe- 
werb mit Vorschlägen zu den tech- 
nischen Daten für solch einen 
Nachfolger vor. Dabei könnten 
schon erste Erfahrungen mit dem 
Atari 520 ST und dem Commodore 
Amiga berücksichtigt werden. Die- 
se Ideen könnte Apple vielleicht 
als Anregungen für den fälligen 
„großen Wurf” dienen. Sollte Ap- 
ple die Änregungen nicht aufneh- 
men (man wird sehen, wohin das 
führt!), könnten auch andere Her- 
steller diese Ideen aufgreifen (z.B. 
Gepard oder IBS). 

Stefan Niedergesäs, Berlin 


Anm. d. Red.: IBS bestimmt nicht! 
Denn dort hat seit Herbst 1985 nur 
noch die Gläubiger-Bank das 
Sagen.) 


CP/M-RAM-Disk 

Zu der Zeitschrift Peeker, die ich 
regelmäßig mit großem Interesse 
lese, möchte ich Ihnen einige An- 
merkungen und Wünsche mittei- 
len. Zunächst: das Konzept der 
Zeitschrift finde ich ausgezeichnet. 
Angesichts zahlreicher anderer, 
offenbar vom Gesetz des schnel- 
len und leichten Geldes geprägter 
Computerzeitschriften, die mit 
großsprecherischen Ankündigun- 
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gen von „Tips und Tricks“ auf der 
Titelseite immer wieder enttäu- 
schen, angesichts auch der räube- 
rischen Preispolitik mancher Soft- 
warevermarkter ist es äußerst er- 
freulich zu erleben, daß im Peeker 
viele komplexe, nützliche Pro- 
gramme nicht nur preisgünstig zur 
Verfügung gestellt, sondern auch 
vollständig veröffentlicht werden. 
Durch den Quelltext wird zum ei- 
nen der Gebrauchswert dieser 
Programme erhöht (man kann ent- 
sprechend den eigenen Bedürfnis- 
sen patchen), zum anderen wird 
dem interessierten Computerbe- 
nutzer das beträchtliche Vergnü- 
gen serviert, das mit dem Kennen- 
lernen guter Programme verbun- 
den sein kann. Durch den Peeker 
habe ich allerlei erfahren, was ich 
immer schon mal hatte wissen wol- 
len, z.B. Details von CP/M, die 
Funktionsweise von Diskettenlauf- 
werken u.a.m. Am Peeker schätze 
ich weiterhin die Kombination von 
detaillierter und fundierter Hinter- 
grundinformation mit didaktisch 
hervorragend gemachten Einfüh- 
rungen, z.B. in ProDOS oder in die 
6502-Assemblersprache. Bei den 
Artikeln für „Fortgeschrittene“ 
könnte allerdings manchmal, wie 
mir scheint, mit wenig Aufwand die 
Verständlichkeit auch für nicht 
hochversierte Leser noch erhöht 
werden. 


Beispiel: Die Beschreibung des 
CP/M-RAM-Disk-Drivers, Peeker 
6/85, S. 60. Beim Studium des 
Programms staunte ich als ein nur 
wenig in Assemblerprogrammie- 
rung erfahrener Leser darüber, daß 
einige DB Statements mit 6502 
Assemblersprache „kommentiert“ 
werden; das hätte ich gern genau- 
er verstanden. Der Begleittext er- 
wähnt kursorisch das „Poken des 
Drivers", worunter ich mir nur et- 
was Nebulöses vorstellen kann. 
Vielleicht ließe sich so etwas in ein, 
zwei zusätzlichen Sätzen (mög- 
lichst ohne Anführungszeichen) 
klären. Es ist mir (daraufhin?) auch 
nicht gelungen, den Driver für ein 
SOK-CP/M (Version 2.23) anzu- 
passen, obwonl ich auf Seite 58 
desselben Artikels erfuhr, daß ich 
dazu mit Hilfe eben dieses Artikels 
in der Lage sein sollte. Ein Wunsch 
von mir an Peeker wäre der nach 
einer Hilfestellung (oder, falls er- 
forderlich, nach einer Programm- 
variante) für eine solche Anpas- 
sung. Ansonsten möchte ich sa- 
gen, daß ich gerade diesen RAM- 
Disk-Driver dauernd mit großem 
Nutzen verwende und ihn wegen 
der hervorragenden Platzausnut- 
zung auf der RAM-Disk für sehr 
gut gelungen halte, 

Georg Pepping, Essen 
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POKE &HDAFD,3: REM Direc- 
tory in 3 Spalten 

POKE &HF3BB,4: REM 80- 
Zeichenkarte ist da 

POKE &HDC42,&H04: REM 
Output auf 80-Zeichenkarte, 


(Anm. d., Red.: Der CP/M-Beitrag 10 
war wegen der kombinierten Z80- 

und 6502-Programmierung ausge- 19 
sprochen schwierig. Ab 1986 brin- 

gen wir regelmäßig didaktisch auf- 20 
bereitete Grundlagenaufsätze. Bei 
manchen Spezialaufsätzen müs- 25 POKE &HDC43,& HDD: REM 
sen wir jedoch aus Piatzgründen JP $DDO4 im BIOS 

auf eine detaillierte Kommentie- 30 X=PEEK(&HEO59): REM Soft- 
rung verzichten, weil diese Aufsät- switch 80-Zeichenkarte an 

ze sonst gar nicht erscheinen 40 PRINT „80 Z/Z" 

könnten.) 


Die folgenden Assembler-Pro- 


GBASIC: Grafik und Text gramme erreichen dasselbe: 


Jörg Lange hat natürlich recht, 
wenn er in seinem Artikel darauf 


hinweist, daß es bei Verwendung 40 Zeichen 80 Zeichen 
einer 80-Zeichenkarte unter GBA- LDA,01 LD A,03 
SIC „i.d.R.“ nicht möglich ist, Gra-  LD (DAFD)A LD (DAFD),A 
fik und 4 Zeilen Text darzustellen, LDA,00 LD A,04 

da CP/M grundsätzlich diese Zu- LD (F3DD),A LD (F3BB),A 
satzkarte zur Ausgabe für Text be- 19 A,00 LD A,04 
nutzt. Abhilfe schaffen die folgen- a „ re 
den BASIC-Programme, die esge- 9 (DC42),A ID (DC43),A 
statten, wahlweise die 80-Zeichen- |DADC LD (E059),A 
karte an- bzw. abzuschalten, In-  LD (DC43),A JP 0000 
dem sie das BIOS entsprechend LD (E058),A 

poken. JP 0000 


10 POKE &HDAFD,1: REM Direc- 
tory in 2 Spalten 

15 POKE &HF3DD,0: REM Klein- 
schreibung möglich 

20 POKE &HF3BB,0 REM keine 
80-Zeichenkarte da 

25 POKE &HDC42,&H44: REM 
Output auf Apple Screen, 

30 POKE &HDC43,&HDC: REM 
JP $DC44 im BIOS 

35 X=PEEK(&HEO58): REM Soft- 
switch 80-Zeichenkarte aus 

40 PRINT „40 Z/Z" 


Es bleibt noch anzumerken, daß 
diese Programme unter CP/M 2.20 
mit 56K TPA auf APPLE II Plus 
(oder Kompatible) laufen, nicht je- 
doch auf BASIS 108. Bliebe zum 
Schluß noch die Anregung, in ei- 
ner der nächsten Ausgaben des 
Peekers einmal auf die Besonder- 
heiten von CP/M 2.25 einzugehen. 
Dr. Wolfgang Eichel, Braunschweig 


Druckfehler im Programm 
„Designer“ 


In dem Listing des Pascal-Programms DESIGNER 
aus Peeker 1/86, ist auf S. 44, 2. Spalte der 

4. Absatz (Procedure Input) wegen eines Montage- 
fehlers nach unten gerutscht und muß oben vor 
„I Key“ eingefügt werden. 
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Prometric-Motherboard 


Erfahrungsbericht 
von Dr. H. Vogel 


Dieses neue Produkt eines Apple- 
kompatiblen Rechners aus deut- 
scher Fertigung beinhaltet auf der 
hochintegrierten DIN-AS-großen 
Multilayer-Platine neben dem Ap- 
ple-kompatiblen Rechner mit 64K 
RAM eine serielle und parallele 
Schnitistelle, eine 80-Zeichenkarte 
mit RGB/PAL-Modul, zwei 
schnelle CPUs (65002 und Z80B) 
mit jeweils 64K RAM sowie eine 
aufsteckbare 256K-RAM-Pseudo- 
disk (Version B3). Durch Jumper 
kann zwischen zwei Sprachen, die 
in drei 2764-EPROMs abgelegt 
sind, gewählt werden (z.B. Ap- 
plesoft und AFORTH). Auf der 
Rückseite der Platine sind alle An- 
schlüsse herausgeführt; dadurch 
entsteht im Gehäuse kein Stecker- 
bzw. Kabel- „‚Wirrwar". Durch die 
Bauweise auf einer Platine entsteht 
auch kaum ein Wärmestau, der 
beim Apple und anderen Nachbau- 
ten zum Einsatz eines Ventilators 
zwingt. 


Programme und 
Betriebssysteme 


Direktes Booten von DOS, C- 
DOS, ProDOS, UCSD-Pascal 1.0, 
GFORTH und AFORTH neben 
Spielprogrammen wie Flugsimula- 
tor II, SARGON Ill und Utilities wie 
Key perfect und Locksmith 5.0 
usw. war möglich. Mittels eines 
Patches auf der mitgelieferten Sy- 
stemdiskette („SPEEDIX") liefen 
die Programme auch mit der 
65C02-CPU anstandslos. Eben- 
falls durch einen Patch mittels Sy- 
stemdiskette waren CP/M 2.2, 
Wordstar, dBase Il, MBASIG, 
GBASIC (letztere gepatcht), Tur- 
bo-Pascal und andere CP/M-Pro- 
gramme lauffähig. Zur Zeit ist der 
Betrieb von CP/M plus noch nicht 
möglich, Nur für den Apple lie ge- 
schriebene Programme wie Quick- 
file sind mit der derzeit zur Verfü- 
gung stehenden Firmware nicht 
lauffähig. An einer Änderung der 
Firmware wird gearbeitet, um auch 
diese Programme booten zu kön- 
nen. Zur Nutzung der 80-Track- 
Laufwerke (in Verbindung mit ei- 
nem Ehring-Controller) sowie der 
Pseudodisk (Version B3) ist eine 
Kopie der jeweiligen Betriebssy- 
stemdiskette an die Firma ESS 
oder deren Vertragshändler einzu- 
senden; danach erhält man dann 
die gepatchte, auf Prometric-Rech- 
ner angepaßte Version. 
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65C02 


Die durchgeführten Benchmark- 
tests ergaben eine um den Faktor 
3,5 kürzere Abarbeitungszeit von 
Programmen. 


Z80B 


Programme wie Turbo-Pascal und 
Benchmarktest waren bei der Pro- 
grammabarbeitung um den Faktor 
3 schneller als bei Verwendung der 
Microsoft-Z80-Karte. Da das 
Z80B-Modul IBS-kompatibel sein 
soll, wäre der 64K-Speicher als 
Pseudofloppy von der 6502-CPUÜ 
aus nutzbar. Durch BIOS-Ände- 
rung des CP/M plus dürfte dies 
auch lauffähig sein; da hierbei je- 
doch „langsamere" 6502-Spei- 
cher benutzt werden müssen, wür- 
de der Geschwindigkeitsvorteil der 
Z80B-CPU teilweise wieder zu- 
nichte gemacht. Mit seiner zur 
AP22 (Z80B-Karte) kompatiblen 
Sandwich-Karte AP34 hat IBS eine 
Möglichkeit aufgezeigt, CP/M plus 
ohne Geschwindigkeitsverlust zu 
installieren — ein Weg, auch für das 
Prometric-Motherboard?! 


80-Zeichen- und 
RGB-/PAL-Modul 


Die 4 möglichen Zeichensätze 
werden in einer 7x9-Matrix darge- 
stellt, Die Farbwiedergabe des 
PAL-Modus über einen farbtüchti- 
gen HF-Modulator auf einem nor- 
malen Farbfernseher ist als gut zu 
bezeichnen. Besser waren die Far- 
ben über RGB auf einem RGB- 
Monitor. Mangels hochauflösen- 
dem RGB-Farbmonitor war es 
nicht möglich, das RGB-Modul auf 
seine 80-Z/Z-Darstellung und 
Farbtüchtigkeit hin zu testen. Falls 
eine solche Möglichkeit bestehen 
sollte, ergibt dies einen weiteren 
Pluspunkt für dieses Motherboard. 


Serielle und parallele Schnitt- 
stelle 


Keine Beanstandungen konnten 
beim Betrieb der seriellen Schnitt- 
stelle bis 19200 Baud festgestellt 
werden; in ihrer Funktionsweise 
entspricht sie der AP2 von IBS. 
Die Parallel-Schnittstelle wird mit 
passender Firmware für den EP- 
SON-Drucker geliefert; Grafik- 
Wiedergabe ist möglich. 


Fazit 


Zum ersten Mal wird ein Apple- 
kompatibles Motherboard vorge- 


stell, das neben der bisher ge- 
wohnten Integration eines Z80- 
Prozessors zwei schnelle GPUs 
beinhaltet, welche die Programm- 
abarbeitung wesentlich beschleu- 
nigen. Gegenüber dem Einzelkauf 
eines Apple-Ile-kompatiblen 
Rechners mit gleicher Konfigura- 
tion liegt der Preis des Prometric- 
Motherboards um rund DM 1500,- 
niedriger. Dabei ist noch nicht der 
Zeitaufwand berücksichtigt, der 
beim Einzelkauf angesetzt werden 
muß, um alle Komponenten auf- 
einander abzustimmen, was bel 
Prometric wegfällt. Dieses Board 
könnte unter den Apple-kompati- 
blen Rechnern einen Standard set- 
zen. Ob als Zusatzkarten für die 
verbliebenen Slots auch hochinte- 
grierte, von ESS entwickelte Mo- 
dule angeboten werden (z.B. ein 
intelligenter Floppy-Controller mit 
Winchester-- und Streamer-An- 
schluß sowie Hardware-Uhr) oder 
Sandwich-Karten (z.B. wie die 
IBS-AP34), bleibt abzuwarten. Der 
System-Urlader deutet jedoch 
schon in diese Richtung. Der Man- 
gel an Kompatibilität zum Apple Ile 
kann wahrscheinlich durch Firm- 
ware-Änderung teilweise behoben 
werden. Durch Austausch des 
6502-Prozessors gegen die 
2MHz-Version des 65C02 waren 
bei der Assembler-Programmie- 


rung auch die neuen zusätzlichen 
Befehle verwendbar. Möglich dürf- 
te demnach auch ein Austausch 
gegen die 1MHz-Version des 
6506802 sein. 


Bemängelt werden muß, daß das 
mitgelieferte Handbuch in einigen 
Punkten Lücken aufweist (z.B. 
über die Handhabung der mitgelie- 
ferten Programme auf der Sysiem- 
diskette zum Patchen). 


Anmerkung zu den beim Test ver- 
wendeten Laufwerken: 


Mit Erphi- bzw, CAT160-(Cuma- 
na-)Controllern in Zusammenhang 
mit BASF-6138-Laufwerken war 
kein Programm bootbar, jedoch mit 
den TEAC-55F-Drives. Das einzi- 
ge mit Ehring-Controller in Verbin- 
dung mit BASF-6138-Laufwerken 
nicht bootbare Programm war Pro- 
DOS. Nach Durchsicht des Tech- 
nical Manuals und Auskunft eines 
Technikers eines BASF-OEM- 
Händlers dürfte die Nicht-Lesbar- 
keit von Programmen auf den 
BASF-6138-Laufwerken an der zu 
kurzen Dauer des Lesesignals lie- 
gen (500 ns + 20%), welches vom 
Controller gar nicht oder falsch an 
der Computer weitergeleitet wird. 
Bei TEAC-Laufwerken soll die Le- 
sesignaldauer mindestens 0,8 bis 
1 betragen. 





Microbuffer II 


getestet von Dr. H. Kersten 


Die Microbuffer-Karte von Practical 
Peripherals ersetzt die sonst übli- 
che parallele Schnittstelle im Apple 
I/lle. Sie besitzt 

a) einen eingebauten Drucker- 
Spooler mit einer Speicherkapazi- 
tät von 16K oder optional 32K 
(4164er RAMs, Nachrüsten auf 
32K ist leicht möglich), 

b) ROM-Software für verschiedene 
Textformatierungen, 

c) druckerabhängige Grafik-Soft- 
ware in einem weiteren ROM, ist 
also als grafikfähiges Interface zu 
verwenden. 

Die ROMs sind alle vom Typ 2716. 
Geliefert wird die Karte mit einer 
15seitigen Bedienungsanleitung 
(in der vorliegenden Version in 
Englisch), in der die Installation, 
die Steuersequenzen für die Text- 
und Grafik-Optionen, sowie die 
Funktion der Karte unter den Be- 


triebssystemen DOS, UCSD-Pas- 
cal, CP/M erläutert wird. Der Preis 
liegt den einschlägigen Inseraten 
zufolge bei DM 300,- bis 350,-. 
Insbesondere bei Neuanschaffung 
eines Druckers samt Interface fällt 
der Mehrpreis gegenüber einem 
Standard-Interface wenig ins Ge- 
wicht — zumal einiges geboten 
wird. 

Getestet wurde die Karte auf ei- 
nem Apple II+ mit Epson-Drucker 
FX80+ (Karte in Slot 1). Beein- 
druckende Testerfahrung ist zu- 
nächst die hohe Übernahmege- 
schwindigkeit: Ein ca. 30K langer 
Text wurde unter Applewriter in et- 
wa 35 Sekunden in den Spooler- 
Puffer übertragen, d.h. auch große 
Datenmengen blockieren den 
Rechner nur für kurze Zeit. BASIC- 
Listings rollen beim „Druck“ so 
schnell über den Bildschirm, als 
wäre kein Drucker angeschlossen. 
Nun zu einigen Details: 
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Die Stellung eines DIP-Switches 
auf der Karte bestimmt, ob beim 
Betätigen der Reset-Taste der 
Spooler-Puffer gelöscht oder un- 
beeindruckt weiter ausgedruckt 
werden soll, Mit einem weiteren 
Schalter läßt sich die Spooler- 
Funktion generell ein- oder aus- 
schalten. 

Für die Text- und Grafik-Funktion 
ist ein spezielles Steuerzeichen 
nötig: Ctrl-| unter DOS und Pro- 
DOS, Gtrl-Q unter UCSD und CP/ 
M (kann abgeändert werden!). 
Weitere darauf folgende Zeichen 
wählen die gewünschte Option 
aus, z.B.: 

— Start eines Selbsttestes mit Prüf- 
musterausgabe auf Drucker; 

— strukturiertes Drucken eines BA- 
SIC-Listings (bei jedem „:“ wird 
ein Zeilenvorschub ausgegeben 
und die neue Zeile eingerückt); 

— Einstellen des linken Druckran- 
des, der Zeilenbreite und der Sei- 
tenlänge (mit automatischem 
Zeilen-/Seitenvorschub); 

— Ausdrucken des augenblickli- 
chen Inhaltes des 40-Zeichen- 
Schirms (oder Teilen davon); 

- Löschen des Spooler-Puffers 
(stoppt unnötigen Papierverbrauch 
bei Fehlfunktionen/-bedienung 
von Programmen); 

— Ausgabe der Hires-Pages 1 und 
2, entweder vollständig oder mit 
üblichem Textfenster; 

— Invertieren der Grafikpunkte 
(weiß/schwarz), zwei verschiede- 
ne Schwärzungssiufen; 

— Drehen der Grafik um 90 Grad 
(vertikales Drucken), Vergrößern 
des Bildes. 


Diese (und weitere) Optionen kön- 
nen auch von Programmen aus 


aufgerufen werden (BASIC- und 
Assemblerbeispiele sind in der An- 
leitung enthalten). 

Nicht möglich ist es dagegen, den 
Inhalt des 80-Zeichen-Schirms 
auszugeben oder Lores zu druk- 
ken. Ein weiteres Problem ergibt 
sich bei solchen Programmen, die 
bestimmte Drucker-Optionen (z.B. 
Zeichensätze, Schrifttypen, ...) di- 
rekt über Otrl-Codes ansprechen 
wollen. Hier kann es zu Über- 
schneidungen mit den Steuerse- 
quenzen der Microbuffer-Karte 
kommen. Abhilfe schafft die soge- 
nannte „transparente“ Betriebsart. 
Wird diese durch ein Steuerzei- 
chen aktiviert, verhält sich die Kar- 
te in der Folge wie eine „normale“ 
Druckerschnitistelle. (Die einge- 
baute Intelligenz legt sich quasi 
schlafen.) 


Ein weiterer Trick ist der soge- 
nannte Maintain-Mode: Alle einge- 
stellten Optionen/Parameter blei- 
ben auch bei einem erneuten 
PR#1 oder sogar beim Booten ei- 
nes anderen Betriebssystems er- 
halten. Dies ist insbesondere wich- 
tig für einige Stand-alone-Be- 
triebssysteme, bei denen man 
nach dem Booten meist keine 
Chance mehr zur Eingabe irgend- 
welcher Steuercodes hat. 


Auch wenn die eine oder andere 
Option bereits zum Standard von 
Druckerschnitistellen gehört, so 
muß man hier doch bei der breiten 
Palette von Möglichkeiten sagen, 
daß die Microbuffer Il ihr Geld wert 
ist. Man sollte beim Kauf allerdings 
darauf achten, ob der Mehrpreis für 
die 32K-Option gerechtfertigt ist: 
Es werden zusätzlich nur 2 RAMs 
4164 plus Sockel benötigt. 





Erphi FSS 280 


(Unveränderte Firmenmittei- 


lung) 


Das Disksubsystem für Apple 
lle mit 2 x 640 KByte Speicher- 
kapazität 


Wer kennt es nicht, das Problem 
mit der zu geringen Diskettenkapa- 
zität des Apple II? Es gibt kaum 
einen Anwender, der nicht auch 
schon einmal an die Grenzen der 
Speicherkapazität seiner 140KBy- 
te-Laufwerke gestoßen ist. Lange 
Zeit gab es außer Festplattenlauf- 
werken keine sinnvolle Alternative. 
Die hohen Anschaffungskosten 
und die ungelösten Datensiche- 
rungsprobleme haben viele An- 
wender vor dem Kauf einer Fest- 
platte zurückschrecken lassen. 
Mittlerweile kann man am Markt die 
Entwicklung beobachten, daß ver- 
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mehrt Laufwerke und Controller für 
höhere Speicherkapazitäten ange- 
boten werden. Viele dieser Pro- 
dukte jedoch sind nur mit gewis- 
sen Einschränkungen lauffähig, 
denn die Kompatibilität mit den für 
Apple erhältlichen Betriebssyste- 
men ist nicht immer sichergestellt, 
Seit kurzem gibt es jetzt im ein- 
schlägigen Apple-Fachhandel das 
erphi FSS 280 — das Disksubsy- 
stem für Apple II mit 2 x 640 KByte 
Speicherkapazität. Das Gerät ar- 
beitet mit allen wesentlichen Ap- 
ple-Il-Betriebssystemen, wie DOS 
3.3, DiversiDOS, CP/M 2.2, Pro- 
DOS 1.1, Pascal 1.1 und Pascal 
1.2. (weitere CP/M-Systeme sind 
z.Zt. in Vorbereitung). 


Die Firma erphi electronic GmbH 
bietet hier auf Basis des ebenfalls 
von erphi entwickelten Autopatch- 





ZUSATZ-KARTEN: 


V-24-Schnittstelle .--.------..:.199,- Z-80-Karte 222222222. 98,- 
80-Zeichen-Karte m.Softswitch 4 - % Kinssakie ETAREEIEREHERN 98,- 
Say arck Deluxe ..:::4....... 99%- Accelerator3.6MHz ......:-. 950,- 
68000 Intemex ....--...... 1600,- PALKarta ..-::442:20H HH 4» N10,- 
tn 2it> VERERER.. ‚Hanna 312,- 
Koppler dataphon m. FTZ ...... 325,- Z80B Karte mit Software ...... 919,- 
Centronics-Karte von Epson für Graphik .. . . 210,- für Text... . 145,- 
Centronics-Schnittstelle für 2 Drucker gleichzeitig. ER OERFERFORRAIRREN © ı F 
Super-Eprommer 


belegt keinen Siot, incl. Software für 2716-27128 


Floppy-Controller 


FDC4fürallelLaufwerke ....... 169,- Bausatz wie links 
Leerplatine wie oben incl. Prom u. Eprom 


Erphi-Controller 
Drucker-Spooler 64 kB, 


fertig aufgebaut incl, Netzteil u. Gehäuse 


Preh Commander Keyboards 


Wir bieten Ihnen die Preh-Qualität auch für Apple. AK 88 Spez. mit Gehäuse, An- 





EEETEEEEEEE EEE EEE EEE EEE 


schlußkabel, Zehner-Tastenfeld, dt. Zeichensatz, Sondenssten für 

| Etrl-Godes und Rechenfunktionen .2: 222244244 en 339,- 
Preh Commander rd, frei programmierbar 
bis zu 10 Ebenen, pro Taste bis zu 250 Zeichen „...ccr cc. nur 599,- 
Gleiche Tastatur wie oben 
für Apple lie Air 698,- 








TEAC 3%" Laufwerk FD 35 98 " 
Speicherkapazität 1 MB, (formatiert 640 KB) jetzt fürnur ........ N 


| Las a 








= e = 
TEACFDSSAVI1x40 Track .... 395,- TEACFDSSBV 2x 40 Track . . 460,- 
TEAC FDS5SEV1x80 Track .. . 445,- TEACFDSSFV 2x 80 Track .... 398,- 
Apple®-kompalibles Laufwerk incl. GehäusetKabel „nunenunnnennan 599,- 


320 KB Laufwerk für IIC .................. 
640 KB Laufwerk für Ilc............. ... 1088, - 


Panasonic Drucker: 1090 nur B849,- 
1091 NENNEN nur IO95,- 1092 nu 1295, 1” 


Die Microfloppy mit Zukunft: 


Speicherkapazität: 2x 1 MByte formatiert: 2 x 
640 kByte. ke mit PROM-residenter 
Patchsoftware für CP/M 2.2, Apple DOS 3.3, Di- 
helps 2.G, 4-G DD MER: Apple Pascal 
1.1, Pascal 1.2, Pro-' 1.01, 

1.1, 1.1.1 zum Preis von 1598 -— 
Low Power Version . 22H r Hrn ‚= 


10 MB Winchester 
mit Software für DOS 3.3, CP/M 2.20, Pascal, Pro-DOS, 


incl. Controler und Gehäuse nuunnneeeeeenemnnenne en 3990,- 


Sonderangebot 
Chinon Laufwerk ...1. 


incl. Kabel u. Gehäuse 


Gesamt-Preisliste anfordern! Preise Inclusive sache Mehrwertsteuer, 
Händlerpreisliste bitte schriftlich anfordern! 


BG IS]INTCH-T-Yargefatler 


DFÜ 02373/66877 
Tel. 02373/63159 
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Controllers ein Disksubsystem an, 
das durch Kompatibilität, Preis/Lei- 
stungsverhältnis, Zuverlässigkeit 
und Benutzerfreundlichkeit be- 
sticht. Der empfohlene Verkaufs- 
preis für dieses Gerät beträgt DM 
2.495,—. 

Nun wird der aufmerksame, fach- 
kundige Leser sagen: Das ist doch 
nichts Neues, das kann ich doch 
selber viel billiger bauen. Da kaufe 
ich mir den Autopatch-Controller 
und ein oder zwei 80-Track-Lauf- 
werke und dann habe ich doch 
dasselbe. 

Weit gefehlt! Alle Standard-80- 
Track-Laufwerke sind für das 
MFM-Aufzeichnungsverfahren op- 
timiert und damit meistens nicht 
kompatibel zum Apple-Aufzeich- 
nungsverfahren. Es müssen Hard- 
ware-Modifikationen durchgeführt 
werden, die von Produkt zu Pro- 
dukt verschieden sind. Hier muß 
ein Kondensator, dort ein Wider- 
stand eingelötet werden, in ande- 
ren Fällen müssen Leiterbahnen 
unterbrochen werden und Wider- 
standsnetzwerke ausgetauscht 
werden usw. 


Zwei wesentliche Fragen, die sich 
hier aufwerfen: 


1.) Sind die durchgeführten Ände- 
rungen wirklich optimal, d.h. hat 
das Laufwerk danach einen unter 
dem Apple-Aufzeichnungsverfah- 
ren optimalen Störabstand? Hierzu 
ist zu bemerken, daß sich in einem 
Laufwerk umfangreiche Analog- 
schaltungen befinden und zwi- 
schen Fehlfunktion und Optimum 
eine erhebliche Bandbreite liegt. 


2.) Was ist dann mit der Hersteller- 
garantie? Die existiert nicht mehr, 
denn alle Hersteller lehnen es für 
gewöhlich ab, bei eigenmächtigen 
Hardware-Eingriffen Garantielei- 
stungen zu gewähren. 


Nachdem sich unser Anwender 
Laufwerke und Controller gekauft 
hat, wird er feststellen, daß er noch 
Gehäuse für die Laufwerke benö- 
tigt und, ach ja, Spannungsversor- 
gungs- und Datenkabel braucht er 
auch noch. Die Spannungsversor- 
gung ist kein Problem, da es ja 
vorgefertigte Kabel gibt, und auf 
dem Autopatch-Controller sind die 
Anschiußpunkte dafür vorgese- 
hen. Das Datenkabel ist auch 
schon fertig, also nur noch zusam- 
menstecken und fertig. 

Wenn es doch nur so einfach wäre! 


Nach mehrstündigem Betrieb, 
auch im Standby, können in 
schlecht belüfteten Gehäusen 


Temperaturen gemessen werden, 
die bis zu 30 Grad C über der 
Umgebungstemperatur liegen. 
Wenn man nun noch weiß, daß 
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einerseits Disketienmaterial und 
Laufwerksmechanik unterschiedli- 
che Ausdehnungskoeffizienten ha- 
ben, bei einem 80-Spur-Laufwerk 
aber andererseits schon hundert- 
stel' mm Abweichung eine eni- 
scheidende Rolle spielen können, 
kann man sich vorstellen, was hier 
bezüglich der Datensicherheit ris- 
kiert wird. Laufwerkshersteller 
spezifizieren die obere Betrieb- 
stemperatur ihrer Geräte mit max. 
45 Grad ©. 

Vorsicht ist auch bei der Span- 
nungsversorgung aus dem Rech- 
nernetzteil geboten, wie das fol- 
gende Beispiel zeigt. Standardlauf- 
werke haben eine gemeinsame 
Motor-On-Leistung, beim Disket- 
tenzugriff laufen beide Motoren 
gleichzeitig an. Sind Disketten ein- 
gelegt, können hierbei auf der 12- 
V-Leitung Ströme von deutlich 
über 1 A fließen. Vielleicht ist der 
Apple auch voll bestückt mit diver- 
sen Zusatzkarten, dann spielt das 
Netzteil nicht mehr mit und versagt 
wegen Überlastung seinen Dienst. 
Na, denkt der findige Bastler, dann 
nehme ich eben ein größeres Ge- 
häuse, ein Netzteil, baue noch ei- 
nen Lüfter ein und dann muß es 
doch funktionieren. Da wird dann 
ein einfaches Kunststoff- oder 
Blechgehäuse gekauft, eines der 
billigen Schaltnetzteile und ein ein- 
facher Lüfter, alles zusammenge- 
baut und fertig. Nun abgesehen 
davon, daß der Lüfter sich äußerst 
geräuschvoll Gehör verschafft und 
daß es durch die Störstrahlung des 
Netzteils zu Schreib/Lesefehlern 
kommen kann, funktioniert das 
Gerät auch. Aber mit welchen Mü- 
hen und finanziellem Aufwand! 

Da Probleme dieser Art von vielen 
Anwendern beklagt werden, hat 
erphi electronic das FSS 280 ent- 
wickelt. Zum Lieferumfang des 
FSS 280 gehören der Laufwerks- 
teil, der Autopatch-Controller, das 
Handbuch, die Utility-Diskette und 
die notwendigen Kabel. Die Eigen- 
schaften des Autopatch-Control- 
lers sind bereits des Öfteren in ver- 
schiedenen Artikeln beschrieben 
worden, so daß hier nur auf den 
Laufwerksieil des FSS 280 einge- 
gangen wird. 

In einem formschönen, Apple-far- 
benen Gehäuse sind zwei Disket- 
tenlaufwerke, ein längsgeregeltes 
Netzteil mit eingebautem Netzfilter 
und ein flüsterleiser Lüfter einge- 
baut. In der Abstimmung der ein- 
zelnen Systemkomponenten auf- 
einander liegt das Geheimnis der 
Zuverlässigkeit und Qualität des 
FSS 280. Die beiden Laufwerke 
vom Typ Philips X 3134 A sind 
Doppelkopflaufwerke mit 2 x 80 
Spuren. Die Motorregelplatine und 
das Analogboard werden bei erphi 





so verändert, daß eine möglichst 
hohe Laufkultur und eine absolute 
Kompatibilität zum Apple-Auf- 
zeichnungsverfahren erreicht wird. 


Anmerkung: Die im freien Handel 
erhältlichen X 3134 sind nicht di- 
rekt mit den erphi-modifizierten 
Laufwerken vergleichbar. Der Un- 
terschied ist schon bei der Ge- 
räuschentwicklung direkt wahr- 
nehmbar. 

Das eingebaute Netzteil ist auf die 
spezifischen Eigenschaften der 
Laufwerke abgestimmt. Es hat kei- 
nen störenden EinfluB auf das 
Schreib/Lesesignal. Der einge- 
baute Netzfilter und die Interne 


Verkabelung entsprechen den 
VDE-Vorschriften. Der eingebaute 
Lüfter arbeitet absolut geräuschlos 
und sorgt dafür, daß selbst nach 24 
Stunden Dauerbetrieb die Tempe- 
ratur im Laufwerksgehäuse nicht 
über 40 Grad C ansteigt. Die ein- 
zelnen Baugruppen des Systems, 
also Laufwerke, Netzteil, Lüfter, 
Controller und Verkabelung wer- 
den einzeln vorgetestet. Nach dem 
Zusammenbau der einzelnen 
Komponenten wird jedes Disksub- 
system einem aufwendigen End- 
test unterzogen. Diese Sorgfalt ist 
der wesentliche Grund für den er- 
zielten Qualitätsstand des FSS 
280. Deshalb gewährt erphi auch 
12 Monate Garantie. 





Placierung von Apple-Computern gemäß "Bestseller-Liste'' (Skala 1-10) 
der Zeitschrift "Chip" mit Erscheinen von Apple IIc und Macintosh 








= 


Februar-Dezember 1984 Januar-Öktober 1985 


Mittel 





Der Apple III war einmal (März 1984: Platz 8) und die Lisa ebenfalls 


einmal (März 1984: Platz l1O) genannt. 


Inden Monaten Februar bis Juli 1984 wurden IIe und II+ zusammengefaßt. 
In den Monaten Mai 1985 (Platz 10) und Juli (Platz 8) wurden auch 


Apple-II-Kompatible aufgeführt, 


Quelle: Zeitschrift „Chip" ab 2/1984. Dieses Februarheft enthält auf 
Ss. 72-73 Hinweise zur Panel-Erhebung. 
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ccp-datentechnik, Hamburg . 
ERPHI ELECTRONIC, Baldham 
Frank & Britting GmbH, Forst 


Ingenieurbüro Fricke, Berlin . 


54 
A. US 
40 
3 


Interkom electronic, Isernhagen . . » 2 ......12 


Intus, Waldshut-Tiengen . 
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M. Semjan Computer Systeme, Frankfut „. . . „ 12 


Tewi-Verlag, München 


Ueding electronics, Menden 
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INTUS-Lern- und 
Anwenderprogramme 
für Apple Il - Computer 


e Rechtschreibtrainer 
für Deutsch DM 125,- 


e Rechtschreibtrainer 
für Englisch DM 98,- 


e Wortschatztrainer 
Englisch/Deutsch DM 98,- 
Französisch/Deutsch DM 9,- 


e Maschineschreiben 
wie der Blitz DM 188,- 


e Basic-Lernprogramm, 
sehr umfangreich DM 295,- 


e Kinderschule, Lernen 
für Vorschulkinder DM 59, 


e AppleGraph, Erstellen von Kreis 
und Balken-Graphiken DM 125,- 


e Rechenmodelle für 
AppleWorks-Rechenblatt DM 195,- 


e PriBu-Privatbuchhaltung DM 195,- 


e und über 200 weitere Programme. 
Katalog gratis 


e Demo-Disketten 
mit 5-9 Teilprogrammen DM 10,- 


oe 6000 Frei-Programme (fast) gratis 
Programm-Liste (Vorkasse) DM 10, 


INTUS SOFTWARE 


Kaiserstr. 21, 7890 Waldshut, 
Tel. 07751-7920 


Der nächste 
Peeker 
Heft 3/1986 
erscheint am 
17. 2. 1986 


Aus postalischen 
Gründen dürfen 
wir bei Produkt- 
berichten keine 
Firmenanschriften 
mitteilen. 


Peeker-Redaktion 
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AGXeigejallef 
Neue Preise# 2 


IMB-PC/XT-COMPATIBLE COMPUTER + ZUBEHÖR 

Mainboard XT f. 16bit + 256K-RAM + 8 Slots, Leerkarte 

Mainboard XT-640 K (on Bord) f. 16 Bit + 8 Stots Leerkarte 

Disk Controller leer (f. 2x360 KB-Drives) 

Disk Controller leer (f. 4 x 360KB-Drives) 

Monochrome Graph. + par. Printer Leerkarte (Hercules comp.) 

Color RGB + Video Graphik Leerkarte 

Parallel Printer Leerkarte 

512K-RAM Leerkarte 

Multifunktions Leerkarte (Printer, Ser, Game Uhr gepuffert) 

Disk-Muliti /O Leerkarte, (f. 3x360 K-Drive, 2xRS 232 1xpar. Printer 

Int., Game/Joystick Port, Real Time Clock/Kalender gepuff.) 

384 K-Multifunktions Leerkarte, (1xpar. Printer Int.. Game/Joystiek 

Port, Real/time Clock/Kalender gepuffert) 

Prototype/Lochraster Leerkarte, durchkontaktiert 

NEIL DET DO SEITEN TER ENTRIES GE N efekzige More [zig 

640 K mit Addr. auf Karte aufr.) + Boot-ROM + 8 Slots best. + geprüft 359,-- 
Mainboard XT-256 w.o. jedoch 256 K - vollbest. und geprüft 439,-- 
Mainboard XT-640 f. 16 bit CPU, OK (bis 640 K-on board aufr.) 389,-- 
Mainboard XT-640 w.o. jedoch 256 K-RAM best. + gepr. 469,-- 
Mainborard XT-640 w.o. jedoch 640 K - vollbest. und geprüft 749,-- 
64KB-RAM-Chip-Aufrüstsatz (9 Stück) einzeln geprüft! 35,-- 
256 KB-RAM-Chip-Aufrüstung (9 Stück) einzeln geprüft 159,-- 
Disk-Controller gepr. (f. 2x360 KB Drives) (Extra Kabel = 39,--) 99,-- 
Disk Controller gepr. (f. 4 x 360 KB-Drives)(Extra Kabel =39,--) 109,-- 
Wfelitelssleeluthetetegetziejgtie 235,-- 
Monochrome Graph. + par. Printer Karte gepr. (Hercules comp.) 315,-- 
Color RGB + Video Graphikkarte gepr. 175,-- 
Parallel Printer-Karte gepr. o. Kabel (Extra Kabel = 49,-) 77,-——- 
512K-RAM-Karte gepr. (OKB) 135,-— 
384K-Multifunktionskarte, RS 232, par. Printer, Interf. Game/Joystick Port, 
Real Time Clock gepuff., OK + RAM-Disk/Spooler/Uhr Softw. 325,-- 
LUNG TSTTELET CH Te ge zTelllieinket:ieig 289,-- 
Disk Multi I/O Karte (f. 2x360 K-Drive, 2xRS 232, 1xpar. Printer Int., 

LE UTALS EIN d 20 eu Keiletetieieuteeigetzjeltiin] 
Profi-Funktionstastatur dt. oder ASCII + 15er Block 

135W/150W-Netzteil mit eingebautem Ventilator, Kurzschlußf. 21 
360KB-Diskdrive Slimline (Track Access Time <2 m S) 

Joystick f. IBM + Compatible 

LEITET RR NICH A SV Eee} Te: \ilell:) , 

PC/XT - KOMPLETT-SYSTEME EINGEBAUT UND GEPRÜFT 

XT-256, 16 bit-Rechner (incl. Boot-Eprom) 128K-Ram im 

IBM-look-like Met.-Gehäuse+Profi-Fkt. Tast.+135 W-Netzt. gepr. 999,—— 
XT-256, w.o.+ Contr.+360KBDrive+Color RGB+Vid. Graphic-Karte 1627,-- 
XT-256, w.o. jedoch statt Color mit Monochrome Karte 
AUBrSSTOPATSE WhER Em RER BEBUSKL Fang re 

Aufpreis für XT-640 M-board mit 640 K vollbestückt+gepr. 


PC 10-Commodore 256 K-+2 Laufwerke + Monitor + dt. Tast. 
640 K-Speichererweiterungs-Set für PC 10 


APPLE-BUS COMPUTERPLATINEN + PERIPHERIE 
Motherboard Il 48K leer, durchkont. mit Lötstopplack 
Motherboard Il w.o. jedoch 64 K leer 
WU REICH TI EFT Te SURERT 
| M-board II 48K, gesockelt, vollbest. + gepr. 
Motherboard Il 64K gesockelt, vollbest.+gepr. 
M-board II 64K + Z80 CPU, gesockelt, v. best. + gepr. 
M-board Ile 64K vollbestückt + gepr. 
APOLLO Il Kunststoff-Leergehäuse 
APOLLO II Gehäuse incl. Funkt.-Tast. 
Superstarkes Netzteil — Kurzschlußfest 
Leerplatine: 16K-RAM, Z80/CPU-, Controller DOS 3.3, 
Parallel-Druckerkarte, Ser. Int. V24, 802/24Z-Karte, PAL-Karte je 
Entwicklungslochraster-Leerplatine durchkontaktiert 
16K-Speicher-Karte geprüft 
APPLE orig. 16K-Language Karte gepr. 
Z-80 CPU-Karte geprüft 
Controller DOS 3.3-Karte geprüft 
Auto-Controller DOS 3.2/3.3-Karte gepr. 
Erphi AFDC 2 Controller + Autopatch Softw. + Handbuch 
Parallel-Drucker-Karte geprüft 
Par.-Drucker-Grappler comp. Leerplatine 
Par.-Drucker Karte-Grappler comp. geprüft 
8bit par. Grappler-Int. + 64K-Buffer + Kabel gepr. 
Seriell-Interface-Karte V24 geprüft 
Super-Seriell Leerkarte 
Super-Seriell-Interface Karte gepr. 
80-Zeichen/24-Zeilen-Karte geprüft 
802/24Z-Karte + Softswitch-Schalter Leerplatine 
802/24Z-Karte + Softswitch-Schalter, gest. Scharf geprüft 
802/24Z-Softwitch Karte gepr. für lie 
ETAPPEN OS ET ET ET ARTE CHA) 
802/24Z-+64K-Ram+Softsw.-Karte best.+gepr. f. Ile 
IEEE-488 Int. Karte gepr. 
NE RIINETGT Ze TEE Teccgetzjelgtiii 
lel:lefeifeldetecchetzie]g 
128K-Speicher-Leerkarte 
128K-Speicher-Leerkarte + Software + Manual 
128K-Speicher-Karte + Software geprüft-+Manual 
256K-Speicher Leerkarte 
256K-Speicher-Karte + Software geprüft+Manual 
LEITET STE UNE GE) 
EPROM-Burner (2716/32/64) geprüft 
6522-VIA Karte geprüft 
Clock Karte geprüft 
Speech Karte geprüft 
VILETCHetzTofgitie 
AD/DA-8Bit Karte gepr. 
Modem Euronorm-Karte gepr. + Software + Man. 
UHF/TV-Modulator universell 
Lüfter anclipsbar (220 V) 
Dataphon s21d Akustikkoppler-FTZ mit RS 232/V24 Anschl. 
APOLLO//(48K) + UHF-Mod. + Gr/Kl vollbest. + gepr. + F--T. 
APOLLO//(48K) + Disk II F + Contr. + 12”-Monitor 
APOLLO//A (48K) + Gr/Kl + 15er-Tastatur vollbest. + gepr. + F.-T. 
APOLLO//A (48K) + Disk II F + Contr. + 12”-Mon. 1.345,-- 
APOLLO// ASKF (48K) vollbest. + gepr. Sep. Keyboard + Gr/Kl + 





























15er-Block mit Funkt.-Tasten im „IBM-look like” Gehäuse 835,-- 
APOLLO// ASKF (48K) w.o. + Disk II F + Contr. 1.179,-- 
Apollo II ASFK (48K) w.o.+2xDisk II-F+Contr.+12” Mon. 1.787,-- 
Aufpreis f.o. Systeme von 48K zu 64K 59,-- 
Aufpreis von 48K zu 64K+Z80 CPU 89,-- 
Apollo Ile (64K) vollbest. und geprüft 725,-- 
Apollo Ile (128K)+80Z/24Z-Karte geprüft 794,-- 
Applie Ile (64K) +15er-Tastatur vollbestückt 819,-- 
Apollo Ile ASKF (64 K) vollbestückt und geprüft ab 876,-- 


Apollo Ile (64K) +Disk Il F+12” Monitor 
APPLE Ile 128K+802/24Z Karte+Softw. 

Epson-Duodisk Il F-Slimline 2x143 KB mit Geh. + Kabel 

Disk//+Contr. + Kabel DOS 3.3 (Siemens) im Geh. 

Disk//(Siemens) im Geh. + Kabel 

Disk//F (1/2 Höhe) im Gehäuse+Contz.+Kabel 

Disk//F (1/2 Höhe) im Gehäuse 

Disk//F-HS (High Speed 1/2 Höhe) im Gehäuse-+Contr.+Kabel 

DisK//F-HS (High Speed 1/2 Höhe) im Geh.+Kabel (Trakt Ac.<2mS 318,-- 
Erphi DuoDisk 1,2 MByte incl. Netzteil + Erphi; AFPC 2-Contr. 1.789,-— 


APPLESOFT + Turorial + Reference Manual engl. R 
APPLE-DOS 3.3 Manual engl. 25,-- 


1.409,-- 













APPLE-DOS 3.3 Hb. dt. 45,-- 
APPLE-Pascal Reference + Operating Manual engl. 48,-- 
APPLE-Pascal Reference Hb. dt. 49,-- 











APPLE-Pascal Language Hb. dt. 39,-- 
APPLE-Fortran Manual engl. 

CP/M-Softcard Vol. | + Il, Manual engl. 

APPLE Il+Ile-Anwenderhandbuch deutsch (te-wi) 


Z80 Karte gepr. f. APPLE//c + RAM-Disk-Software + Hb. 
WEISEN ECM EPL:]19) 

VERIICEIES EAHNEIFL) 

VESICELRNHTGERTTER LEE NEE PL 

SANYO MSX-Computer MPL 64 dt. Tastatur 

Epson LX 80, 8 Bit/par. (Extra Traktor = 69,—) 

AS EEE EIETORLIPZER N KEN 
EPSON FX 105+, 8bit/parallel 15” sonst w.o. 

EPSON Traktoraufsatz für FX 80 + FX 85 
APPLE/EPSON-Drucker Graphic-Interface + Kabel 
EEE DEEETVET SERIEN EIG] EHR LEEREN) 
BROTHER-Typenraddr. HR 15XL 8bit/par. neuestes Mod. 
STAR SG10, NLQ- + IBM-Zeichensatz, 8bit/par. 


Wir führen verschiedene Monitore von Zenith, Phillips und Sanyo mit Video - 
TIL (IBM Komp.) oder Coloreingang. — Bitte Preisliste anfordern! — 
Disketten in Box + Aufkleber I. Wahl, 10er Pack/100er Pack./ Stückpreis: 
5'/4"Verstärkt BASF 3M FUJI DATA NEUTRAL 
SCOTCH MAGNE- 

TICS 
1X, SS/SD 3,69/ 3,49 2,86/2,76 
1D, SS/DD 3,89/ 3,69 4,88/ 4,58 4,27/ 3,97 3,96/3,76 2,75/2,65 
2D, DS/DD 5,69/ 5,49 6,38/ 5,88 5,87/ 5,47 4,76/4,46 3,85/3,65 
1D/96TPi 5,5% 5,39 7,18/ 6,68 
2D/96TPi 7,09/ 6,99 7,88/ 7,48 7,87/ 7,67 
2HD/1.2MB 13,49/12,69 12,87/12,57 
1X, Hard 4,29/ 4,19 
gr 
1X,SS/SD 4,497 4,39 6,68/ 6,48 6,97/ 6,67 Das 
1D, SS/DD 4,79/ 4,59 8,58/ 8,28 Pi 
2D, DS/DD 7,09/ 6,89 9,88/ 9,58 10,17/ 9,77 sind 
1X, Hard 4,49/ 4,39 6,68/ 6,48 z 
au Preise! 
Einseitig 10,99/ 9,99 10,08/ 9,88 7,67/ 7,47 
Zweiseitig _14,99/14,29 15,98/15,18 


3M-Scotch 51/4” Flüssig-Reinigungsset (2 Disk.) zweiseitig 48,95 
514" Disketten-Archivbox für 10 Disks (1 St./10 St.) 4,75/43,50 
A BENSETEL ERICH UT EIEIE) Mer E10 N DIE] 26,50 
514" Disk-Karteikasten Kunststoff (ca. 80 Disk) Rauchglas 39,95 
514” Disk-K.K.Rauchglas, abschließb. (f. ca. 80-100 Disks) 47,50 
2000 Bl. Tabpapier (24 cm x 12" einf.) weiß oder grün/weiß perrf. 45,-- 
4000 Et.-Aufkl. doppelr. (107 x 36 mm auf 240 x 12” perf. Trägerp.) [12:10] 
LETTER DENE PERS PETE) 65,-- 
OSZILLOSCOPE HAMEG ab Lager 
Bei Vorauszahlung frei Empfangsstation unversichert in der BRD, ausgenom- 
men Papier und Etiketten, sonst N.N. + V.S. ab DM 30,-- Preise incl. MwSt. 
Öffnungszeiten: Mo, Di, Do, Fr v. 10-18 h, Mi u. Sa v. 10-14 h, la Sa v. 10-18 h. 
Telef. Best.: Mo, Di, Do, Fr von 10-19 h, Mi u. Sa wie Öffnungszeiten. 
GEWÄHRLEISTUNG: 6 Monate, auf alle bei uns gekauften Geräte, durch 
unsere eigene Service-Werkstatt. 
REPARATUREN an Apple + Compatible Geräte + Zubehör führt unser 
Spezialistenteam garantiert zuverlässig + besonders kostengünstig aus. 
Sprechen sie mit uns. Kostenvorschlag auf Wunsch! 


& ACYeldejstte® 











































Telex: 0772642 aaa-d 
Habsburgerstraße 134 
7800 FREIBURG, Tel. (0761) 276864 
Bauelemente - Bausätze - uP's 
Meßgeräte - Zubehör - Fachliteratur 
Fachgeschäft für Elektronik + Mikrocomputer 








MERLIN 


von Glen Bredon 





Der professionelle Macro-Assembler für 
die Apple Il-Familie! 
Neben allen Standard-Features bietet 


MERLIN u.a.: 


EM komfortabler Editor mit globalen 
Such- und Ersetzfunktionen 

liest und schreibt DOS 3.3 Text- und 
Binärfiles 

unterstützt 6502- und 65C02- 
Opcodes 

beinhaltet eine Bibliothek mit fertigen 
Unterprogrammen 

enthält einen Disassembler mit eige- 
ner Label-Bibliothek 

kompatibel mit vielen 80-Zeichen- 
karten und natürlich mit Apple //e 


und Apple //c 








Jetzt mit deutschem Handbuch! 


ISBN 3-89058-024-6 DM 198,- 


Bei Ihrem Apple-Händler, in guten Buch- 
handlungen, oder direkt vom Verlag: 


Ampersand*, Teltower Damm 168, 
D-1000 Berlin 37, (030) 815 80 69 


*,ormals Pandabooks 





EEE EE EM EM Bessekourpor HH HH ME 


ae een ee 
ARSCH nee 


O V-Scheck liegt bei (spesenfreie Lieferung) 
O per Nachnahme (zzgl. DM 3,— Versandspesen) 


Ex. MERLIN  &DM 198,- 
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Vorschau Heft 3/86 


(Änderungen vorbehalten) 








Grundlagen Hobby 
Binäres Rechnen mit Papier Kreiszahl Pi 
und Bleistift auf 15000 Stellen 
Teil 2: Multiplikation und Division a 
Annlesoft Testberichte _ 
APPIESOTT —— Macintosh Plus 
Behandlung reeller Zahlen in (Apple) 
Applesoft Okidata-Drucker ML-192 
Technik rare tür Andleı 
Meßwertverarbeitung Pak in Su 
Assembler Mockingboard 
re Een BE Hi a Eee Musik- und Sprachkarte 
Windowing (Sweet Micro Systems) 
Fenstertechnik beim Apple II 

DCODE 
ProDOS Applesoft-Hilfsprogramme 


BEER BEE EEE (Beagle Brothers) | 


Erstellung zusammenhängender | - 





Subdirectories 






._ Kart mM 
Superschnelle Bildschirm- | 24. I un dk 
ausgabe I RE ee We. 

in Apple-Pascal 1: Marzoe 


Kyan 


Kyan-Pascal-Aufbaukurs 


Datentypen, Unterprogramme, Strings, 
Dateien 


CP/M 
Wordstar, FX-80 und DDT 


Premium-Softcard 
Speicherverwaltung unter CP/M 
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Accelerator Ile macht 
Ihren Apple” Il, II Plus oder Ile 
dreieinhalbmal schneller. 


"ıpsanamı t, Kuhn 5, 
rn — 


r .’ ni .. ee A 
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FIT UFFreerT) Y nunamn |! nes {8 Bi 
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® “ 
rag ii “on | F 
: ri nn du bi = “ = 08 
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ee ee Bo .. en erg 


- “ DEE 


Jetzt laufen VisiCalc®, Apple Writer, PASCAL, BASIC, 
Datenbanken usw. endlich ohne langen Zeitverlust. 
stecken Sie einfach die ACCELERAÄTOR Ile Karte 
in irgendeinen Slot und beobachten Sie, 
wir Ihr Apple loslegt! 

ACCELERATOR Ile besitzt seinen eigenen schnellen 
6502 Prozessor und 80 K-Byte Hochgeschwindigkeits- 
speicher, einschließlich einer eingebauten schnellen 
Sprachkarte und schnellem RAM-Speicherplatz für die 
ROM-Sprache. 

Direkt von Pandasoft (Titan Distributor für Deutschland) 
oder bei Ihrem Applehändler. 


Panday®ft Dr.-Ing. Eden 


Uhlandstraße 195 - 1000 Berlin 12 - Mo-Fr 10-18 Uhr, Sa 10-13 Uhr 
Telefon: 0 30/31 04 23 - Telex: 185 859 


9) Kell ngc Druckerinterfaces für Apple IH-/e/ 


Printer Interface c/Il Interfaces auf dem neuesten 
Stand der Technik. Kompatibel mit allen gängigen Druckern wie: 
APPLE, EPSON, STAR, NEC, OKIDATA usw. Passende Treiber- 


software wird über Dip-Switch ausgewählt, 
Grafikfähiges Druckerinterface 


Grap pler + das keine Wünsche mehr offen läßt. 


Über 2 Dutzend Kommandos ermöglichen die volle Kontrolle 
über alle Möglichkeiten Ihres 
Druckers. Jetzt auch mit 

Ile Features: Double Hires 

Grafics und 80 Zeichen Dump 

mittels Druckerpuffer nachrüstbar 


über Bufferboard. Ne ' 
Grappler 2 Besitzt alle Vorzüge des Grappler +, 
hat aber zusätzlich einen integrier- 
ten 16 K Druckpuffer, der auf u 
32 oder 64 K aufrüstbar ist. & 


Serielles Druckerinterface 
speziell für den Apple Image- 
writer. 


Ilorumk 
KRRAPPLER C 


Seriell-nach-Parallel-Wandler für 
den Ilc im Kabel integriert. 


wie Hotlink, jedoch zusätzlich 


Imagewriter Emulation und Grafik 
Software-Diskette. 


panday®ft:.... :-. 


Uhlandstraße 195 - 1000 Berlin 12 - Mo-Fr 10-18 Uhr, Sa 10-13 Uhr 
Telefon: 0 30/31 04 23 - Telex: 185 859 














ThunderScan." 


Ein neues optisches Lesegerät, das beliebige 
Vorlagen in MacPaint überträgt: Fotos, Zeich- 
nungen, Landkarten und Illustrationen werden 
in den Apple-Imagewriter eingespannt und von 
einem Lesekopf, der das Farbband ersetzt, 
abgetastet. 


& File Edit Scanner Tools 


















METTBENTETTE Tu 





Si RE, 


Contrast = 110% 


Ko | | 


G 
Brightness = +10 


= 
















Lines go 186 





@ 32 Graustufen 
® 80 Punkte/cm Auflösung 

® Ubertragungsmaßstab 25% - 400% 

® Vorlagen bis 20x25 cm 

@ Nachträgliche Veränderung des Kontrasts 
und der Helligkeit. 


Panday®ft Dr.-Ing. Eden 


Uhlandstraße 195 - 1000 Berlin 12 : Mo-Fr 10-18 Uhr, Sa 10-13 Uhr 
Telefon: 0 30/31 04 23 - Telex: 185 859 














Thunder Sean 











‚Sie haben einen Apple... 


und die 
Hardware... 


wir haben die 
Software... 


wir haben die 
Bücher... 


ALLES FÜR DEN APPLE II, Ile, lic UND MACINTOSH 


I Eden 


UHLAWMOSTA: 196 - D-71000 BEALIAG 12 
I TEL.(O30) 310923 - TELEX:1889583 a 
PL TAE IE LLlA 8 dr fach re RT: htenbuker u 


Re er ä 





Noch universeller 
und noch komfortabler... 


Betriebssysteme 
BO5383 

DiversiDOS 2-c, 4-c, 
OD OS 0 
Pascal 1.1, 1.2 

GP/VM 2.20, 223.226 


SLOT-Unabhängig 
bei DOS, DiversiDOS, ProDOS 





Die bisherigen Vorzüge 
bleiben erhalten, wie 


Autopatch-Boot 

automatische Erkennung und 
Erweiterung der Betriebssysteme 
und Laufwerkskapazitäten 
während des Bootvorgangs 
(Betriebssystem auf der Boot- 
Diskette bleibt unverändert) 





Anschlußfert: 
für Applell, /e 
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erphi 

Doppellaufwerke DL 280 
2 Laufwerke mit je 640 kB 
formatiert im Gehäuse incl. 


erphi 


_ Autopatch-Controller 


Handbuch und Diskette mit 
Dienstprogrammen 


Verkaufspreis incl. MwSt. 
DM 1.298,— 

erphi 

Floppy-Subsystem FSS 280 


geeignet für 


kommerzielle Anwendungen 

2 Laufwerke mit je 640 kB 
formatiert im Gehäuse 

mit eigener Stromversorgung incl. 
erphi 

Autopatch-Controller 
Handbuch und Diskette mit 
Dienstprogrammen 
Verkaufspreis incl. MwSt. 

DM 1.693,— 


Originalsystem-Boot 

von herkömmlichen Apple®- 
Disketten unabhängig 

vom Laufwerksformat weiterhin 
möglich 


Problemloses Übertragen 
herkömmlicher Apple®-Software 
auf Disketten höherer Kapazität 
durch SIM 35-Hilfsprogramm 
(simuliert 35-Spur-Laufwerk 
unabhängig vom tatsächlichen 
Laufwerksformat) 


Dammweg 3 

D-8011 Großhelfendorf 
Telefon (08095) 441 
Telex 528021 erphi d 


